aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source 
* 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
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
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."