branch: externals/org-contacts
commit 1e47e18f24d2bbca210190f7d4b2e2726c0bc089
Author: stardiviner <[email protected]>
Commit: stardiviner <[email protected]>
Fix `org-contacts--all-contacts` only return first `org-contacts-files`
entry
Fix `org-contacts--all-contacts` to return contacts from all configured
files, not just the first `org-contacts-files` entry.
---
org-contacts.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index 31f0cccf27..13853907c2 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -1616,7 +1616,7 @@ are effectively trimmed. If nil, all zero-length
substrings are retained."
(defun org-contacts--all-contacts ()
"Return a list of all contacts in `org-contacts-files'.
Each element has the form (NAME . (FILE . POSITION))."
- (car (mapcar
+ (mapcan
(lambda (file)
(unless (buffer-live-p (get-buffer (file-name-nondirectory file)))
(find-file-noselect file))
@@ -1643,7 +1643,7 @@ Each element has the form (NAME . (FILE . POSITION))."
:mobile property-email
:wechat property-wechat
:qq property-qq))))))
- (org-contacts-files))))
+ (org-contacts-files)))
;;;###autoload
(defun org-contacts-link-open (query)
