From 225c4fb73936ae6518ec39db77edec3e1b8c0513 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Sat, 3 Jun 2006 23:38:12 +0000 Subject: [PATCH] Fix bug introduced in last patch. * muse-publish.el (muse-publish-include-tag): Fix bug introduced in last patch. git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-153 --- ChangeLog | 14 ++++++++++++++ lisp/muse-publish.el | 13 ++++++------- 2 files changed, 20 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index b6b96e0..a3a5f0f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,20 @@ # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2006/muse--main--1.0 # +2006-06-03 23:38:12 GMT Michael Olson patch-153 + + Summary: + Fix bug introduced in last patch. + Revision: + muse--main--1.0--patch-153 + + * muse-publish.el (muse-publish-include-tag): Fix bug introduced in last + patch. + + modified files: + ChangeLog lisp/muse-publish.el + + 2006-06-03 21:18:35 GMT Michael Olson patch-152 Summary: diff --git a/lisp/muse-publish.el b/lisp/muse-publish.el index 0cabdeb..4565076 100644 --- a/lisp/muse-publish.el +++ b/lisp/muse-publish.el @@ -1527,13 +1527,12 @@ region." ((and markup-function (not (functionp markup-function))) (error "Invalid markup function `%s'" markup)) (t nil)) - (when markup-function - (save-restriction - (narrow-to-region beg end) - (insert-file-contents filename) - (when markup-function - (funcall markup-function)) - (goto-char (point-max))))) + (save-restriction + (narrow-to-region beg end) + (insert-file-contents filename) + (when markup-function + (funcall markup-function)) + (goto-char (point-max)))) (insert-file-contents filename) (muse-publish-markup-region beg (point))) (muse-publish-mark-read-only beg (point)))) -- 2.11.4.GIT