emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals-release/org 823f974 2/2: lisp/org-agenda.el: Let tags-t


From: ELPA Syncer
Subject: [elpa] externals-release/org 823f974 2/2: lisp/org-agenda.el: Let tags-todo searches include DONE keywords
Date: Sun, 16 May 2021 18:57:12 -0400 (EDT)

branch: externals-release/org
commit 823f9744e9f6c58b6f5459e161a8501ec03603a3
Author: Bastien <bzg@gnu.org>
Commit: Bastien <bzg@gnu.org>

    lisp/org-agenda.el: Let tags-todo searches include DONE keywords
    
    * lisp/org-agenda.el (org-agenda, org-agenda-run-series): Don't
    set the todo-only parameter to '(4) when calling `org-tags-view'.
    
    Reported-by: Stig Brautaset <stig@brautaset.org>
    Link: https://orgmode.org/list/m2ftazm3l1.fsf@brautaset.org/
    
    This completes 2fb129b5c, as per Kyle's analysis here:
    https://orgmode.org/list/87r1ufmw72.fsf@kyleam.com/
---
 lisp/org-agenda.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 3bcfde2..7dfba55 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -2929,7 +2929,7 @@ Pressing `<' twice means to restrict to the current 
subtree or region
               ((eq type 'tags)
                (org-let lprops '(org-tags-view current-prefix-arg org-match)))
               ((eq type 'tags-todo)
-               (org-let lprops '(org-tags-view '(4) org-match)))
+               (org-let lprops '(org-tags-view nil org-match)))
               ((eq type 'todo)
                (org-let lprops '(org-todo-list org-match)))
               ((eq type 'tags-tree)
@@ -3265,7 +3265,7 @@ s   Search for keywords                 M   Like m, but 
only TODO entries
            '(org-tags-view current-prefix-arg match)))
         ((eq type 'tags-todo)
          (org-let2 gprops lprops
-           '(org-tags-view '(4) match)))
+           '(org-tags-view nil match)))
         ((eq type 'todo)
          (org-let2 gprops lprops
            '(org-todo-list match)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]