diff options
author | Bastien <bzg@gnu.org> | 2018-04-26 18:44:58 +0200 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2018-04-26 18:44:58 +0200 |
commit | 2742211ec69eebe5de8539b1825cf0049adc0d46 (patch) | |
tree | 6eef4be6cfd85059e69a898a67ef914adbffcfbf | |
parent | 8944b578b86dd3c16e568e905b43e5fa6cfa5e68 (diff) | |
download | org-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.el | 4 |
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) |