summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien <bzg@gnu.org>2018-04-26 18:44:58 +0200
committerBastien <bzg@gnu.org>2018-04-26 18:44:58 +0200
commit2742211ec69eebe5de8539b1825cf0049adc0d46 (patch)
tree6eef4be6cfd85059e69a898a67ef914adbffcfbf
parent8944b578b86dd3c16e568e905b43e5fa6cfa5e68 (diff)
downloadorg-mode-2742211ec69eebe5de8539b1825cf0049adc0d46.tar.gz
org-agenda.el: Fix bug when keyboard-quitting the match prompt
* lisp/org-agenda.el (org-tags-view): Don't leave an empty *Org agenda* buffer when keyboard-quitting the match prompt. Thanks to Xu Chunyang for reporting this.
-rw-r--r--lisp/org-agenda.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index ed48c30..a6d1df4 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4751,11 +4751,11 @@ The prefix arg TODO-ONLY limits the search to TODO entries."
(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))
- (setq matcher (org-make-tags-matcher match)
- match (car matcher)
+ (setq match (car matcher)
matcher (cdr matcher))
(org-compile-prefix-format 'tags)
(org-set-sorting-strategy 'tags)