From: Allen Li <darkfeline@felesatra.moe>
To: mail@nicolasgoaziou.fr, emacs-orgmode@gnu.org
Subject: [PATCH] org-agenda: Store stuck project redo command
Date: Wed, 19 Apr 2017 22:52:56 -0700 [thread overview]
Message-ID: <87wpafaamf.fsf@felesatra.moe> (raw)
In-Reply-To: <CAJr1M6cyTbGMrG=wM+eHcY0RvT_vmVGTxxspR-Hi4MDckXTRaA@mail.gmail.com> (message from Allen Li on Wed, 19 Apr 2017 01:40:27 -0700)
* 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 cf9351a9b..78c1a37f4 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4971,7 +4971,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
--
2.12.2
next prev parent reply other threads:[~2017-04-20 5:53 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-04-18 6:22 Bug: Stuck projects view reverts to tag match on refresh [9.0.5] Allen Li
2017-04-18 8:33 ` Nicolas Goaziou
2017-04-19 8:40 ` Allen Li
2017-04-20 5:52 ` Allen Li [this message]
2017-04-21 1:17 ` [PATCH] org-agenda: Store stuck project redo command Samuel Wales
2017-04-21 1:20 ` Samuel Wales
2017-04-25 21:48 ` Nicolas Goaziou
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87wpafaamf.fsf@felesatra.moe \
--to=darkfeline@felesatra.moe \
--cc=emacs-orgmode@gnu.org \
--cc=mail@nicolasgoaziou.fr \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.