[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-contrib b2681360eb: * lisp/org-choose.el: Fix obsolete
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/org-contrib b2681360eb: * lisp/org-choose.el: Fix obsolete function names |
Date: |
Sat, 23 Sep 2023 10:01:49 -0400 (EDT) |
branch: elpa/org-contrib
commit b2681360eb3607a48e42aa3beff8017d219030c2
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
* lisp/org-choose.el: Fix obsolete function names
(org-choose-filter-one): Use `cl-first' and `cl-second' instead of
`first' and `second'.
---
lisp/org-choose.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/org-choose.el b/lisp/org-choose.el
index 5dfa183ff5..7585ed47e2 100644
--- a/lisp/org-choose.el
+++ b/lisp/org-choose.el
@@ -117,7 +117,7 @@ Each entry is an `org-choose-mark-data.'" )
(string-match "^," args)
(cons nil arglist-x)
arglist-x)))
- (decision-arg (second arglist))
+ (decision-arg (cl-second arglist))
(type
(cond
((string= decision-arg "0")
@@ -127,7 +127,7 @@ Each entry is an `org-choose-mark-data.'" )
((string= decision-arg "-")
'bot-lower-range)
(t nil)))
- (vanilla-arg (first arglist))
+ (vanilla-arg (cl-first arglist))
(vanilla-mark
(if vanilla-arg
(concat vanilla-text "("vanilla-arg")")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/org-contrib b2681360eb: * lisp/org-choose.el: Fix obsolete function names,
ELPA Syncer <=