emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ebdb 285178e 4/4: Do a better job of finding all the us


From: Eric Abrahamsen
Subject: [elpa] externals/ebdb 285178e 4/4: Do a better job of finding all the user's Org tags
Date: Thu, 9 Jan 2020 18:05:08 -0500 (EST)

branch: externals/ebdb
commit 285178e667748124808c404d82ced0d747b5c782
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Do a better job of finding all the user's Org tags
    
    * ebdb-org.el (ebdb-read): We shouldn't be using the interior
    `org--tag-add-to-alist' function, but there doesn't seem to be any
    other way of doing it.
---
 ebdb-org.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/ebdb-org.el b/ebdb-org.el
index 849367a..392269b 100644
--- a/ebdb-org.el
+++ b/ebdb-org.el
@@ -131,9 +131,13 @@ italicized, in all other cases it is left unchanged."
   (let* ((crm-separator (cadr (assq 'ebdb-field-tags ebdb-separator-alist)))
         (val (completing-read-multiple
               "Tags: "
-              (append (org-global-tags-completion-table)
-                      (when ebdb-tags
-                        (mapcar #'list ebdb-tags)))
+              (org--tag-add-to-alist
+               (org--tag-add-to-alist
+                (org--tag-add-to-alist
+                 (org-global-tags-completion-table)
+                 org-tag-alist)
+                org-tag-persistent-alist)
+               ebdb-tags)
               nil nil
               (when obj (ebdb-string obj)) 'org-tags-history)))
     (cl-call-next-method field (plist-put slots :tags val))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]