From da83e7d583895976a2398becbb995bcce1f729be Mon Sep 17 00:00:00 2001 From: Allen Li Date: Wed, 19 Apr 2017 22:52:56 -0700 Subject: [PATCH] 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 --- lisp/org-agenda.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index b7a20cdb5..8f7a7b7f2 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -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