diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-05-19 10:31:27 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-05-19 10:31:27 +0200 |
commit | 920cfbd921c3828d8696a4fc8728c4e03172894a (patch) | |
tree | 8cf58fe5d94bd8daffe2b37de669f1c33108cc3b | |
parent | 5fc351ab78a6023af43e965ccd3ff2d349afbbac (diff) | |
download | org-mode-920cfbd921c3828d8696a4fc8728c4e03172894a.tar.gz |
org-agenda: Fix agenda filter by empty tag string
* lisp/org-agenda.el (org-agenda-filter-make-matcher-tag-exp): Handle
empty tag strings.
Reported-by: Eric Abrahamsen <eric@ericabrahamsen.net>
<http://permalink.gmane.org/gmane.emacs.orgmode/107121>
-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 2723237..5714d55 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7625,8 +7625,8 @@ switches in the returned form." (let (f f1) ;f = return expression. f1 = working-area (dolist (x tags) (let* ((tag (substring x 1)) - (isregexp (and (equal "{" (substring tag 0 1)) - (equal "}" (substring tag -1)))) + (isregexp (and (org-string-match-p "\\`{" tag) + (org-string-match-p "}\\'" tag))) regexp) (cond (isregexp |