From 53b4e52db5d2350d876005750cc32be3725cd226 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Fri, 17 Nov 2006 13:37:02 +0000 Subject: [PATCH] muse-latex: Fix nested enumerated list bug 2006-11-17 Michael Olson * lisp/muse-publish.el (muse-publish-surround-text): Fix bug in latex publishing where nested enumerated lists would be squashed together at the end. git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-248 --- ChangeLog | 6 ++++++ lisp/muse-publish.el | 7 ++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 571faa6..43111aa 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2006-11-17 Michael Olson + + * lisp/muse-publish.el (muse-publish-surround-text): Fix bug in + latex publishing where nested enumerated lists would be squashed + together at the end. + 2006-11-16 Michael Olson * lisp/muse-latex.el (muse-latex-markup-strings): Make an ordered diff --git a/lisp/muse-publish.el b/lisp/muse-publish.el index ad0c4d4..e55ff0d 100644 --- a/lisp/muse-publish.el +++ b/lisp/muse-publish.el @@ -1113,7 +1113,12 @@ The following contexts exist in Muse. "\\}")) (setq post-indent "")) (while continue - (muse-insert-markup beg-tag) + (if (or (not end-tag) (string= end-tag "")) + ;; if no end of list item markup exists, treat the beginning + ;; of list item markup as it if it were the end -- this + ;; prevents multiple-level lists from being confused + (muse-insert-markup-end-list beg-tag) + (muse-insert-markup beg-tag)) (setq beg (point) ;; move past current item; continue is non-nil if there ;; are more like items to be processed -- 2.11.4.GIT