From dfae79a442c0a1f2862548e316172a315c59f781 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Thu, 18 Sep 2008 21:50:36 -0700 Subject: [PATCH] muse-publish: Don't skip past beginning of buffer even if read-only. * lisp/muse-publish.el (muse-publish-markup): Do not skip past the beginning of the buffer even if the first character is read-only. This fixes a bug where the first paragraph would not be published properly if it started with a link. --- lisp/muse-publish.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/muse-publish.el b/lisp/muse-publish.el index 52764d7..f976bc6 100644 --- a/lisp/muse-publish.el +++ b/lisp/muse-publish.el @@ -534,7 +534,8 @@ to the text with ARGS as parameters." (message "Publishing %s...%d%%" name (* (/ (float (+ (point) base)) limit) 100))) (while (and regexp (progn - (when (get-text-property (point) 'read-only) + (when (and (get-text-property (point) 'read-only) + (> (point) (point-min))) (goto-char (or (next-single-property-change (point) 'read-only) (point-max)))) -- 2.11.4.GIT