[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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/org-contrib e3a6a91928: * lisp/org-depend.el: Use non-obsolete function names,
ELPA Syncer <=