From bcd7d7b99b6f28900c4730c76813f086c88d54fa Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Sat, 28 Oct 2006 22:04:18 +0000 Subject: [PATCH] Fix all known definition list publishing issues * lisp/muse-publish.el (muse-publish-surround-text): If we are asked to determine the amount of indentation, concatenate indent and post-indent the first time around. This effectively fixes all known definition list issues. git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-226 --- lisp/muse-publish.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/muse-publish.el b/lisp/muse-publish.el index e4e78e5..cda21a6 100644 --- a/lisp/muse-publish.el +++ b/lisp/muse-publish.el @@ -1097,6 +1097,7 @@ The following contexts exist in Muse. (empty-line (concat "^[" muse-regexp-blank "]*\n")) (determine-indent (if determine-indent-func t nil)) (new-indent indent) + (first t) beg) (unless indent (setq indent (concat "[" muse-regexp-blank "]+"))) @@ -1109,7 +1110,9 @@ The following contexts exist in Muse. (setq beg (point) ;; move past current item; continue is non-nil if there ;; are more like items to be processed - continue (funcall move-func indent)) + continue (if (and determine-indent-func first) + (funcall move-func (concat indent post-indent)) + (funcall move-func indent))) (when determine-indent-func (funcall determine-indent-func continue 'new-indent 'determine-indent)) (when continue @@ -1127,6 +1130,8 @@ The following contexts exist in Muse. (muse-insert-markup-end-list end-tag) (when determine-indent-func (setq indent new-indent)) + (when first + (setq first nil)) (when continue (goto-char (point-max))))))) -- 2.11.4.GIT