mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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 3142297d69
commit 17b9475f7e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/lisp/org-contacts.el
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) (defun org-contacts-remove-ignored-property-values (ignore-list list)
"Remove all ignore-list's elements from list and you can use "Remove all ignore-list's elements from list and you can use
regular expressions in the ignore list." regular expressions in the ignore list."
(remove-if (lambda (el) (org-remove-if (lambda (el)
(find-if (lambda (x) (org-find-if (lambda (x)
(string-match-p x el)) (string-match-p x el))
ignore-list)) ignore-list))
list)) list))
(defun org-contacts-complete-name (start end string) (defun org-contacts-complete-name (start end string)
"Complete text at START with a user name and email." "Complete text at START with a user name and email."