emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/org-contacts-rebased f62bfeb 066/118: org-contacts: use `


From: Stefan Monnier
Subject: [elpa] scratch/org-contacts-rebased f62bfeb 066/118: org-contacts: use `org-' prefixed variants of cl functions
Date: Fri, 12 Nov 2021 15:37:05 -0500 (EST)

branch: scratch/org-contacts-rebased
commit f62bfeb6db91abc45a8e3aaa48a1b9e90b400f1b
Author: Aaron Ecay <aaronecay@gmail.com>
Commit: Aaron Ecay <aaronecay@gmail.com>

    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.
---
 org-contacts.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/org-contacts.el b/org-contacts.el
index a220993..97171d0 100644
--- a/org-contacts.el
+++ b/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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]