forked from mirrors/org-mode
Fixed bug in org-publish.el, relating to org-publish-use-timestamp-flag.
This commit is contained in:
parent
a118fef3d8
commit
24282ebf74
|
@ -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
|
||||
|
|
|
@ -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))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue