org-contacts: use `org-' prefixed variants of cl functions

* contrib/lisp/org-contacts.el (org-contacts-remove-ignored-property-values):
Use `org-remove-if' and `org-find-if' instead of the unprefixed variants.
This commit is contained in:
Aaron Ecay 2013-07-27 01:17:54 -04:00
parent 25211e8066
commit d6824ec3c2

View file

@ -516,11 +516,11 @@ A group FOO is composed of contacts with the tag FOO."
(defun org-contacts-remove-ignored-property-values (ignore-list list)
"Remove all ignore-list's elements from list and you can use
regular expressions in the ignore list."
(remove-if (lambda (el)
(find-if (lambda (x)
(string-match-p x el))
ignore-list))
list))
(org-remove-if (lambda (el)
(org-find-if (lambda (x)
(string-match-p x el))
ignore-list))
list))
(defun org-contacts-complete-name (start end string)
"Complete text at START with a user name and email."