diff options
author | Aaron Ecay <aaronecay@gmail.com> | 2013-07-27 01:17:54 -0400 |
---|---|---|
committer | Aaron Ecay <aaronecay@gmail.com> | 2013-07-27 01:21:27 -0400 |
commit | 17b9475f7e8a5d067f7d99361544cfa62987aad4 (patch) | |
tree | 4c93ecbb1b9ac729e623f01b731e5400efb19af6 | |
parent | 3142297d69f6063221215757a3ba9c74adcf3e43 (diff) | |
download | 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.el | 10 |
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." |