From 24282ebf749639b27cd892ca11e4e19b10e0ad8e Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 26 Feb 2008 15:59:20 +0100 Subject: [PATCH] Fixed bug in org-publish.el, relating to org-publish-use-timestamp-flag. --- ChangeLog | 6 ++++++ org-publish.el | 7 ++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8796caf4b..f504d0cc0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2008-02-26 Carsten Dominik + + * org-publish.el (org-publish, org-publish-current-file) + (org-publish-all): Do not overrule the default value of + `org-publish-use-timestamps-flag' with a nil value of FORCE. + 2008-02-22 Carsten Dominik * org.el (org-insert-heading, org-insert-item): More intelligent diff --git a/org-publish.el b/org-publish.el index e0b7a1847..e9b684208 100644 --- a/org-publish.el +++ b/org-publish.el @@ -560,7 +560,8 @@ default is 'index.org'." nil t) current-prefix-arg)) (save-window-excursion - (let ((org-publish-use-timestamps-flag (if force nil t)) + (let ((org-publish-use-timestamps-flag + (if force nil org-publish-use-timestamps-flag)) (plists (org-publish-get-plists project-name))) (mapcar 'org-publish-plist plists)))) @@ -584,7 +585,7 @@ With prefix argument, force publish the file." (interactive "P") (save-window-excursion (let ((org-publish-use-timestamps-flag - (if force nil t))) + (if force nil org-publish-use-timestamps-flag))) (org-publish-file (buffer-file-name))))) @@ -595,7 +596,7 @@ With prefix argument, force publish all files." (interactive "P") (save-window-excursion (let ((org-publish-use-timestamps-flag - (if force nil t)) + (if force nil org-publish-use-timestamps-flag)) (plists (org-publish-get-plists))) (mapcar 'org-publish-plist plists))))