Ver código fonte

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.
Aaron Ecay 11 anos atrás
pai
commit
17b9475f7e
1 arquivos alterados com 5 adições e 5 exclusões
  1. 5 5
      contrib/lisp/org-contacts.el

+ 5 - 5
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."