From 1988c9afe8004698e8bc16bce10f463e671d1e96 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Sat, 4 Nov 2006 04:14:17 +0000 Subject: [PATCH] Fix bug when using C-c C-T to publish a file 2006-11-03 Michael Olson * lisp/muse-publish.el (muse-publish-this-file): Set the current output style manually, since it will differ from anything in the publishing style list. --This line, and those below, will be ignored-- Files to commit: lisp/muse-publish.el lisp/muse-project.el ChangeLog This list might be incomplete or outdated if editing the log message was not invoked from an up-to-date changes buffer! git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-238 --- ChangeLog | 6 ++++++ lisp/muse-publish.el | 8 +++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2200bd3..050b284 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2006-11-03 Michael Olson + + * lisp/muse-publish.el (muse-publish-this-file): Set the current + output style manually, since it will differ from anything in the + publishing style list. + 2006-10-30 Michael Olson * lisp/muse-colors.el (muse-colors-markup): Remove note about diff --git a/lisp/muse-publish.el b/lisp/muse-publish.el index 5e0d11f..ad0c4d4 100644 --- a/lisp/muse-publish.el +++ b/lisp/muse-publish.el @@ -684,9 +684,11 @@ Prompt for both the STYLE and OUTPUT-DIR if they are not supplied." (interactive (muse-publish-get-info)) (if buffer-file-name - (unless (muse-publish-file buffer-file-name style output-dir force) - (message (concat "The published version is up-to-date; use" - " C-u C-c C-T to force an update."))) + (let ((muse-current-output-style (list :base (car style) + :path output-dir))) + (unless (muse-publish-file buffer-file-name style output-dir force) + (message (concat "The published version is up-to-date; use" + " C-u C-c C-T to force an update.")))) (message "This buffer is not associated with any file"))) (defun muse-batch-publish-files () -- 2.11.4.GIT