[elpa] externals/gnorb c9e4dfb 056/449: Limit to TODOs only in BBDB tag searches

[Stefan Monnier]

branch: externals/gnorb
commit c9e4dfb322df42e7705a3450e26850e296238cac
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Limit to TODOs only in BBDB tag searches
    
    gnorb-bbdb.el: gnorb-bbdb-tag-agenda
    
    Used to show all tagged headings by default, only TODOs
    with a prefix argument. This reverses those defaults.
---
 README.org         |  3 ++-
 lisp/gnorb-bbdb.el | 13 +++++++------
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/README.org b/README.org
index 9b1c45a..cb6d16d 100644
--- a/README.org
+++ b/README.org
@@ -29,7 +29,8 @@ packages, but I'm not promising anything.
 **** gnorb-bbdb-tag-agenda
 Give BBDB records an org-tag field (customizable), then call this
 function on the current records(s) to open an Org agenda tags search
-using those tags.
+using those tags. Only shows TODOs by default: use a prefix argument
+to show all tagged headings.
 **** gnorb-bbdb-mail-search
 Search for all mail messages from the record(s) displayed. Currently
 supports the notmuch, mairix, and namazu search backends; set
diff --git a/lisp/gnorb-bbdb.el b/lisp/gnorb-bbdb.el
index 7fc6cf0..11c3ccf 100644
--- a/lisp/gnorb-bbdb.el
+++ b/lisp/gnorb-bbdb.el
@@ -42,9 +42,10 @@
 
 (defun gnorb-bbdb-tag-agenda (records)
   "Open an Org agenda tags view from the BBDB buffer, using the
-value of the record's org-tags field. A prefix argument limits to
-TODOs only; a \"*\" prefix operates on all currently visible
-records. If you want both, use \"C-u\" before the \"*\"."
+value of the record's org-tags field. This shows only TODOs by
+default; a prefix argument shows all tagged headings; a \"*\"
+prefix operates on all currently visible records. If you want
+both, use \"C-u\" before the \"*\"."
   (interactive (list (bbdb-do-records)))
   (require 'org-agenda)
   (unless (and (eq major-mode 'bbdb-mode)
@@ -60,10 +61,10 @@ records. If you want both, use \"C-u\" before the \"*\"."
                   records))
          "|")))
     (if tag-string
-       ;; C-u = todos only
+       ;; C-u = all headings, not just todos
        (if (equal current-prefix-arg '(4))
-           (org-tags-view t tag-string)
-         (org-tags-view nil tag-string))
+           (org-tags-view nil tag-string)
+         (org-tags-view t tag-string))
       (error "No org-tags field present"))))
 
 (defun gnorb-bbdb-mail-search (records)