branch: externals/org-contacts
commit 0ff9a6dae6c1b67f0da0c63bc75b8c1063eac85d
Author: stardiviner <[email protected]>
Commit: stardiviner <[email protected]>
Fix `org-contacts-identity-properties-list' list elements not expanded.
---
org-contacts.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index cf1a3ed883..de0af29638 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -845,11 +845,11 @@ This function should be called from
`gnus-article-prepare-hook'."
;;====================================== org-contacts searching
=====================================
(defcustom org-contacts-identity-properties-list
- '(org-contacts-email-property
- org-contacts-alias-property
- org-contacts-tel-property
- org-contacts-address-property
- org-contacts-birthday-property)
+ `(,org-contacts-email-property
+ ,org-contacts-alias-property
+ ,org-contacts-tel-property
+ ,org-contacts-address-property
+ ,org-contacts-birthday-property)
"Matching rule for finding heading that are contacts.
This can be property key checking."
:type 'list
@@ -895,7 +895,7 @@ This can be property key checking."
(wholenump length))
length)))
;; detect whether headline is an org-contacts entry?
- (when (seq-intersection (mapcar 'car properties)
org-contacts-identity-properties-list)
+ (when (seq-intersection org-contacts-identity-properties-list (mapcar 'car
properties))
(propertize
(concat
(if avatar-image-path
