[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))))