diff options
| -rw-r--r-- | gnorb-org.el | 7 | ||||
| -rw-r--r-- | gnorb.el | 2 |
2 files changed, 5 insertions, 4 deletions
diff --git a/gnorb-org.el b/gnorb-org.el index 6ae35ee..84f6757 100644 --- a/gnorb-org.el +++ b/gnorb-org.el @@ -728,7 +728,8 @@ Returns a lambda form used for matching a search string (ie, the (setq term rest))) (push (mapconcat 'identity (nreverse acc) "") out-or)) (setq str (mapconcat 'identity (nreverse out-or) "|")) - (cdr (org-make-tags-matcher str)))) + (when (not (string-blank-p str)) + (cdr (org-make-tags-matcher str))))) ;;;###autoload (defun gnorb-org-popup-bbdb (&optional str) @@ -743,8 +744,8 @@ search." (eq org-agenda-type 'tags)) (or (called-interactively-p 'any) gnorb-org-agenda-popup-bbdb)) - (let ((tag-clause (gnorb-org-munge-agenda-query-string - (or str org-agenda-query-string)))) + (when-let ((tag-clause (gnorb-org-munge-agenda-query-string + (or str org-agenda-query-string)))) (unless (equal str "") (setq recs (cl-remove-if-not @@ -2,7 +2,7 @@ ;; Copyright (C) 2018-2020 Free Software Foundation, Inc. -;; Version: 1.6.10 +;; Version: 1.6.11 ;; Package-Requires: ((cl-lib "0.5")) ;; Maintainer: Eric Abrahamsen <eric@ericabrahamsen.net> |