diff options
author | Allen Li <darkfeline@felesatra.moe> | 2017-04-19 22:52:56 -0700 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-04-25 23:46:50 +0200 |
commit | da83e7d583895976a2398becbb995bcce1f729be (patch) | |
tree | 8aabbf1cde96378882890244c4f1a987eacf7b4e | |
parent | 411e9e0816509e61ea9f143a7efbe34ec9e6f0b4 (diff) | |
download | org-mode-da83e7d583895976a2398becbb995bcce1f729be.tar.gz |
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
-rw-r--r-- | lisp/org-agenda.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index b7a20cd..8f7a7b7 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 |