Browse Source

org-agenda: Fix the last fix...

* lisp/org-agenda.el (org-tags-view): Fix last commit.
Nicolas Goaziou 7 years ago
parent
commit
640e05523a
1 changed files with 7 additions and 7 deletions
  1. 7 7
      lisp/org-agenda.el

+ 7 - 7
lisp/org-agenda.el

@@ -4751,13 +4751,13 @@ The prefix arg TODO-ONLY limits the search to TODO entries."
       (setq match nil))
     (catch 'exit
       ;; TODO: this code is repeated a lot...
-      (if org-agenda-sticky
-	  (setq org-agenda-buffer-name
-		(if (stringp match)
-		    (format "*Org Agenda(%s:%s)*"
-			    (or org-keys (or (and todo-only "M") "m")) match)
-		  (format "*Org Agenda(%s)*" (or (and todo-only "M") "m"))))
-	(setq matcher (org-make-tags-matcher match)))
+      (when org-agenda-sticky
+	(setq org-agenda-buffer-name
+	      (if (stringp match)
+		  (format "*Org Agenda(%s:%s)*"
+			  (or org-keys (or (and todo-only "M") "m")) match)
+		(format "*Org Agenda(%s)*" (or (and todo-only "M") "m")))))
+      (setq matcher (org-make-tags-matcher match))
       ;; Prepare agendas (and `org-tag-alist-for-agenda') before
       ;; expanding tags within `org-make-tags-matcher'
       (org-agenda-prepare (concat "TAGS " match))