org-agenda: Store stuck project redo command

* lisp/org-agenda.el (org-agenda-list-stuck-projects): Store the redo
command in a text property so it is found correctly.

`org-agenda-redo' checks the `org-redo-cmd' text property, not
`org-agenda-redo-command'.

TINYCHANGE
This commit is contained in:
Allen Li 2017-04-19 22:52:56 -07:00 committed by Nicolas Goaziou
parent 411e9e0816
commit da83e7d583
1 changed files with 5 additions and 1 deletions

View File

@ -5132,7 +5132,11 @@ of what a project is and how to check if it stuck, customize the variable
(setq org-agenda-buffer-name (buffer-name))
(with-current-buffer org-agenda-buffer-name
(setq org-agenda-redo-command
`(org-agenda-list-stuck-projects ,current-prefix-arg)))))
`(org-agenda-list-stuck-projects ,current-prefix-arg))
(let ((inhibit-read-only t))
(add-text-properties
(point-min) (point-max)
`(org-redo-cmd ,org-agenda-redo-command))))))
;;; Diary integration