mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

org-agenda.el (org-todo-list): Fix redoing of todo agenda when `org-agenda-sticky' is non-nil

Browse Source 
* org-agenda.el (org-todo-list): Fix redoing of todo agenda
when `org-agenda-sticky' is non-nil.
This commit is contained in:
Bastien Guerry 2012-09-29 13:44:19 +02:00
parent ba9606e6e1
commit a6417c62cf
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-agenda.el
View File

@ -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))