summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-09-29 13:44:19 +0200
committerBastien Guerry <bzg@altern.org>2012-09-29 13:44:19 +0200
commita6417c62cfe7b622ff50078bae10962818c74046 (patch)
tree46a7fd18b7f770b195a05e4722200fa7b34005ca
parentba9606e6e16ad1ee9901e8fe5f729b9abd32553b (diff)
downloadorg-mode-a6417c62cfe7b622ff50078bae10962818c74046.tar.gz
org-agenda.el (org-todo-list): Fix redoing of todo agenda when `org-agenda-sticky' is non-nil
* org-agenda.el (org-todo-list): Fix redoing of todo agenda when `org-agenda-sticky' is non-nil.
-rwxr-xr-xlisp/org-agenda.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 4720a72..0a53055 100755
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4369,7 +4369,10 @@ for a keyword. A numeric prefix directly selects the Nth keyword in
(org-compile-prefix-format 'todo)
(org-set-sorting-strategy 'todo)
(setq org-agenda-redo-command
- `(org-todo-list (or current-prefix-arg (quote ,arg))))
+ `(org-todo-list (or (and (numberp current-prefix-arg) current-prefix-arg)
+ ;; (and (stringp (quote ,arg)) (quote ,arg))
+ ,org-select-this-todo-keyword
+ current-prefix-arg ,arg)))
(setq files (org-agenda-files nil 'ifmode)
rtnall nil)
(while (setq file (pop files))