diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2009-01-30 07:38:02 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2009-01-30 07:38:02 +0100 |
commit | 99221708a3e8e856d42d76c1ed3608b800101ffe (patch) | |
tree | 0d6cdfcec0b3c6caa8286b1413830a2301a2e4ee | |
parent | bb3570eae91cf4854203e282dc4f282a19bac738 (diff) | |
download | org-mode-99221708a3e8e856d42d76c1ed3608b800101ffe.tar.gz |
Agenda: Fix bug with calling `org-agenda-todo' in a non-interactive way.
-rwxr-xr-x | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/org-agenda.el | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2c1e7b5..8ff1db1 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 1d6e560..3ae35bc 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -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 |