ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Agenda: Fix bug with calling `org-agenda-todo' in a non-interactive way.

This commit is contained in:
Carsten Dominik 2009-01-30 07:38:02 +01:00
parent bb3570eae9
commit 99221708a3
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2009-01-30 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-todo): Pass ARG to `org-todo'.
2009-01-29 Carsten Dominik <carsten.dominik@gmail.com>
* org-exp.el (org-export-remove-or-extract-drawers): Only remove

3
lisp/org-agenda.el
View File

@ -5131,7 +5131,8 @@ the same tree node, and the headline of the tree node in the Org-mode file."
(save-excursion
(and (outline-next-heading)
(org-flag-heading nil))) ; show the next heading
(call-interactively 'org-todo)
(let ((current-prefix-arg arg))
(call-interactively 'org-todo))
(and (bolp) (forward-char 1))
(setq newhead (org-get-heading))
(when (and (org-bound-and-true-p