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

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

[nongnu] elpa/org-contrib e3a6a91928: * lisp/org-depend.el: Use non-obso


From: ELPA Syncer
Subject: [nongnu] elpa/org-contrib e3a6a91928: * lisp/org-depend.el: Use non-obsolete function names
Date: Thu, 5 Oct 2023 10:02:19 -0400 (EDT)

branch: elpa/org-contrib
commit e3a6a91928049b5832d14f7c99b8efa164dbdc20
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    * lisp/org-depend.el: Use non-obsolete function names
    
    (org-depend-trigger-todo): Use cl-* versions of function names.
---
 lisp/org-depend.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/org-depend.el b/lisp/org-depend.el
index 8aaf79c1e4..c20ab9cb50 100644
--- a/lisp/org-depend.el
+++ b/lisp/org-depend.el
@@ -289,9 +289,9 @@ This does two different kinds of triggers:
                              (t (nreverse items))))
                  (setq items (cl-remove-if
                               (lambda (item)
-                                (or (equal (first item) this-item)
+                                (or (equal (cl-first item) this-item)
                                     (and (not todo-and-done-only)
-                                         (member (second item) 
org-done-keywords))
+                                         (member (cl-second item) 
org-done-keywords))
                                     (and (or todo-only
                                              todo-and-done-only)
                                          (null (second item)))))
@@ -300,10 +300,10 @@ This does two different kinds of triggers:
                        (sort
                         items
                         (lambda (item1 item2)
-                          (let* ((p1 (third item1))
-                                 (p2 (third item2))
-                                 (e1 (fifth item1))
-                                 (e2 (fifth item2))
+                          (let* ((p1 (cl-third item1))
+                                 (p2 (cl-third item2))
+                                 (e1 (cl-fifth item1))
+                                 (e2 (cl-fifth item2))
                                  (p1-lt (< p1 p2))
                                  (p1-gt (> p1 p2))
                                  (e1-lt (and e1 (or (not e2) (< e1 e2))))



reply via email to

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