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

[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")")



reply via email to

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