mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 06:16:27 +00:00
Code Releases Activity

Publishing: Fix `C-u C-c C-e X'.

Browse source 
Publishing a project with prefix argument to
force publishing was broken.  Actually, the entire interactive side of
this function was implemented badly.  Fixed now.
This commit is contained in:
Carsten Dominik 2009-05-19 17:46:09 +02:00
parent 8e44b1fd8b
commit 83e82f9ccd
2 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2009-05-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-publish.el (org-publish): Make this function behave
correctly in interactive use when called with a prefix argument.
* org.el (org-todo-statistics-hook): New hook.
(org-update-parent-todo-statistics): Use new hook.
(org-log-into-drawer): New function.

18
lisp/org-publish.el
View file

@ -600,18 +600,18 @@ Default for INDEX-FILENAME is 'sitemap.org'."
;;;###autoload
(defun org-publish (project &optional force)
"Publish PROJECT."
(interactive "P")
(interactive
(list
(assoc (org-ido-completing-read
"Publish project: "
org-publish-project-alist nil t)
org-publish-project-alist)
current-prefix-arg))
(setq org-publish-initial-buffer (current-buffer))
(save-window-excursion
(let* ((force current-prefix-arg)
(org-publish-use-timestamps-flag
(let* ((org-publish-use-timestamps-flag
(if force nil org-publish-use-timestamps-flag)))
(org-publish-projects
(list (or project
(assoc (org-ido-completing-read
"Publish project: "
org-publish-project-alist nil t)
org-publish-project-alist)))))))
(org-publish-projects (list project)))))
;;;###autoload
(defun org-publish-all (&optional force)