From 798193385a9aea7256a41696cccd8f0807cefbf7 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Tue, 7 Mar 2006 03:52:11 +0000 Subject: [PATCH] Fix publishing problem with XEmacs. * lisp/muse-publish.el (muse-insert-file-or-string): Fix XEmacs publishing problem when text at beginning of buffer is read-only. Thanks to Christian Clercin for the report. git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-48 --- ChangeLog.2006 | 15 +++++++++++++++ lisp/muse-publish.el | 3 +++ 2 files changed, 18 insertions(+) diff --git a/ChangeLog.2006 b/ChangeLog.2006 index 7256156..0963d46 100644 --- a/ChangeLog.2006 +++ b/ChangeLog.2006 @@ -2,6 +2,21 @@ # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2006/muse--main--1.0 # +2006-03-07 03:52:11 GMT Michael Olson patch-48 + + Summary: + Fix publishing problem with XEmacs. + Revision: + muse--main--1.0--patch-48 + + * lisp/muse-publish.el (muse-insert-file-or-string): Fix XEmacs + publishing problem when text at beginning of buffer is read-only. + Thanks to Christian Clercin for the report. + + modified files: + ChangeLog.2006 lisp/muse-publish.el + + 2006-03-06 06:06:38 GMT Michael Olson patch-47 Summary: diff --git a/lisp/muse-publish.el b/lisp/muse-publish.el index 88039e6..079e4e8 100644 --- a/lisp/muse-publish.el +++ b/lisp/muse-publish.el @@ -472,6 +472,9 @@ to the text with ARGS as parameters." (setq end (point))) (save-restriction (narrow-to-region beg end) + (remove-text-properties (point-min) (point-max) + '(read-only nil rear-nonsticky nil)) + (goto-char (point-min)) (muse-publish-markup (or title "") '((100 "<\\(lisp\\)>" 0 muse-publish-markup-tag)))))) -- 2.11.4.GIT