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>
|
2008-02-22 Carsten Dominik <dominik@science.uva.nl>
|
||||||
|
|
||||||
* org.el (org-insert-heading, org-insert-item): More intelligent
|
* org.el (org-insert-heading, org-insert-item): More intelligent
|
||||||
|
|
|
@ -560,7 +560,8 @@ default is 'index.org'."
|
||||||
nil t)
|
nil t)
|
||||||
current-prefix-arg))
|
current-prefix-arg))
|
||||||
(save-window-excursion
|
(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)))
|
(plists (org-publish-get-plists project-name)))
|
||||||
(mapcar 'org-publish-plist plists))))
|
(mapcar 'org-publish-plist plists))))
|
||||||
|
|
||||||
|
@ -584,7 +585,7 @@ With prefix argument, force publish the file."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(save-window-excursion
|
(save-window-excursion
|
||||||
(let ((org-publish-use-timestamps-flag
|
(let ((org-publish-use-timestamps-flag
|
||||||
(if force nil t)))
|
(if force nil org-publish-use-timestamps-flag)))
|
||||||
(org-publish-file (buffer-file-name)))))
|
(org-publish-file (buffer-file-name)))))
|
||||||
|
|
||||||
|
|
||||||
|
@ -595,7 +596,7 @@ With prefix argument, force publish all files."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(save-window-excursion
|
(save-window-excursion
|
||||||
(let ((org-publish-use-timestamps-flag
|
(let ((org-publish-use-timestamps-flag
|
||||||
(if force nil t))
|
(if force nil org-publish-use-timestamps-flag))
|
||||||
(plists (org-publish-get-plists)))
|
(plists (org-publish-get-plists)))
|
||||||
(mapcar 'org-publish-plist plists))))
|
(mapcar 'org-publish-plist plists))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue