Browse Source

Revert "org-agenda: `tags-todo' command type includes DONE keywords"

This reverts commit 942b6267a09e167ad3a546e83205601aa5c0704e.
Nicolas Goaziou 5 months ago
parent
commit
db0ef4d06e
2 changed files with 2 additions and 5 deletions
  1. 0 3
      etc/ORG-NEWS
  2. 2 2
      lisp/org-agenda.el

+ 0 - 3
etc/ORG-NEWS

@@ -439,9 +439,6 @@ document with ~org-mark-ring-goto~ (default binding =C-c &=).
 
 See docstring for details.
 
-*** ~tags-todo~ custom searches now include DONE keywords
-~tags-todo~ is now equivalent to ~C-c a m~ instead of ~C-c a M~ unless
-you use "/!" markup when filtering TODO keywords.
 *** New option ~org-babel-uppercase-example-markers~
 
 This variable is a ~defcustom~ and replaces the variable

+ 2 - 2
lisp/org-agenda.el

@@ -2840,7 +2840,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 current-prefix-arg org-match)))
+		(org-let lprops '(org-tags-view '(4) org-match)))
 	       ((eq type 'todo)
 		(org-let lprops '(org-todo-list org-match)))
 	       ((eq type 'tags-tree)
@@ -3167,7 +3167,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 current-prefix-arg match)))
+	    '(org-tags-view '(4) match)))
 	 ((eq type 'todo)
 	  (org-let2 gprops lprops
 	    '(org-todo-list match)))