org-contacts.el (org-contacts-matcher): Better matcher

* contrib/lisp/org-contacts.el (org-contacts-matcher): Better matcher.

Thanks to Simon Thum for suggesting this.
This commit is contained in:
Bastien Guerry 2013-04-06 22:58:03 +02:00
parent bc11ab4130
commit 1d70236144

View file

@ -127,7 +127,12 @@ The following replacements are available:
:type 'string :type 'string
:group 'org-contacts) :group 'org-contacts)
(defcustom org-contacts-matcher (concat org-contacts-email-property "<>\"\"") (defcustom org-contacts-matcher
(mapconcat 'identity (list org-contacts-email-property
org-contacts-tel-property
org-contacts-address-property
org-contacts-birthday-property)
"<>\"\"|")
"Matching rule for finding heading that are contacts. "Matching rule for finding heading that are contacts.
This can be a tag name, or a property check." This can be a tag name, or a property check."
:type 'string :type 'string