diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 0a53055af..bcf2b72cb 100755 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4369,8 +4369,8 @@ 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 (and (numberp current-prefix-arg) current-prefix-arg) - ;; (and (stringp (quote ,arg)) (quote ,arg)) + `(org-todo-list (or (and (numberp current-prefix-arg) + current-prefix-arg) ,org-select-this-todo-keyword current-prefix-arg ,arg))) (setq files (org-agenda-files nil 'ifmode)