summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAaron Ecay <aaronecay@gmail.com>2013-07-27 05:17:54 (GMT)
committer Aaron Ecay <aaronecay@gmail.com>2013-07-27 05:21:27 (GMT)
commit17b9475f7e8a5d067f7d99361544cfa62987aad4 (patch)
tree4c93ecbb1b9ac729e623f01b731e5400efb19af6
parent3142297d69f6063221215757a3ba9c74adcf3e43 (diff)
downloadorg-mode-17b9475f7e8a5d067f7d99361544cfa62987aad4.zip
org-mode-17b9475f7e8a5d067f7d99361544cfa62987aad4.tar.gz
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.
-rw-r--r--contrib/lisp/org-contacts.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el
index a220993..97171d0 100644
--- a/contrib/lisp/org-contacts.el
+++ b/contrib/lisp/org-contacts.el
@@ -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."