summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2009-01-30 07:38:02 +0100
committerCarsten Dominik <carsten.dominik@gmail.com>2009-01-30 07:38:02 +0100
commit99221708a3e8e856d42d76c1ed3608b800101ffe (patch)
tree0d6cdfcec0b3c6caa8286b1413830a2301a2e4ee
parentbb3570eae91cf4854203e282dc4f282a19bac738 (diff)
downloadorg-mode-99221708a3e8e856d42d76c1ed3608b800101ffe.tar.gz
Agenda: Fix bug with calling `org-agenda-todo' in a non-interactive way.
-rwxr-xr-xlisp/ChangeLog4
-rw-r--r--lisp/org-agenda.el3
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