diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-05-11 21:55:23 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-05-11 21:55:23 +0200 |
| commit | 640e05523a79e82329b878cfe3c968e3b821c076 (patch) | |
| tree | 2bbd2d797b1a3925811d74da393639f85b6f3fbd | |
| parent | 68b376dee0e9b6fb1773dab17d8064bf5c3b6330 (diff) | |
| download | org-mode-640e05523a79e82329b878cfe3c968e3b821c076.tar.gz | |
org-agenda: Fix the last fix...
* lisp/org-agenda.el (org-tags-view): Fix last commit.
| -rw-r--r-- | lisp/org-agenda.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 657e497..24b7524 100644 --- a/lisp/org-agenda.el +++ b/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)) |