From 2ec03e18b827fcc9753a4fe89ecd51e280693fc3 Mon Sep 17 00:00:00 2001 From: Jan Malakhovski Date: Sun, 27 Dec 2015 14:47:56 +0000 Subject: [PATCH] org-contacts: Fix org-contacts-matcher for BIRTHDAYs * contrib/lisp/org-contacts.el (org-contacts-matcher): Fix expression to work for BIRTHDAY-only contacts. --- org-contacts.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/org-contacts.el b/org-contacts.el index ebc7bcd..5001283 100644 --- a/org-contacts.el +++ b/org-contacts.el @@ -159,12 +159,14 @@ The following replacements are available: :group 'org-contacts) (defcustom org-contacts-matcher - (mapconcat 'identity (list org-contacts-email-property - org-contacts-alias-property - org-contacts-tel-property - org-contacts-address-property - org-contacts-birthday-property) - "<>\"\"|") + (mapconcat #'identity + (mapcar (lambda (x) (concat x "<>\"\"")) + (list 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 a tag name, or a property check." :type 'string