tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fixed bug in org-publish.el, relating to org-publish-use-timestamp-flag.

This commit is contained in:
Carsten Dominik 2008-02-26 15:59:20 +01:00
parent a118fef3d8
commit 24282ebf74
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
2008-02-26 Carsten Dominik <dominik@science.uva.nl>
* 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 <dominik@science.uva.nl>
* org.el (org-insert-heading, org-insert-item): More intelligent

7
org-publish.el
View File

@ -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))))