diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-03 01:40:32 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-03 02:59:40 +0200 |
| commit | 72c7ee2e525d87b58a28aea8af8cef31f607d7c0 (patch) | |
| tree | 8073020a2a2b250fb35c4d87cc24112ee789930d /lisp/emacs-lisp/cl-lib.el | |
| parent | 85f1ad0c798b5556c37185f4930929d5aa386a5e (diff) | |
| download | emacs-72c7ee2e525d87b58a28aea8af8cef31f607d7c0.tar.gz emacs-72c7ee2e525d87b58a28aea8af8cef31f607d7c0.tar.bz2 emacs-72c7ee2e525d87b58a28aea8af8cef31f607d7c0.zip | |
Avoid cl-cXXXr compat aliases
* lisp/emacs-lisp/cl-lib.el (cl-third, cl-fourth):
* lisp/emacs-lisp/cl-macs.el (cl--do-&aux, cl--do-arglist)
(cl--parse-loop-clause, cl--loop-let, cl--loop-build-ands)
(cl--do-proclaim, cl-defstruct): Prefer using cXXXr functions
directly, instead of cl-cXXXr prefixed compat aliases.
Diffstat (limited to 'lisp/emacs-lisp/cl-lib.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-lib.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index 3f40ab07605..a54fa21fa96 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el @@ -372,8 +372,8 @@ SEQ, this is like `mapcar'. With several, it is like the Common Lisp (cl--defalias 'cl-second 'cadr) (cl--defalias 'cl-rest 'cdr) -(cl--defalias 'cl-third 'cl-caddr "Return the third element of the list X.") -(cl--defalias 'cl-fourth 'cl-cadddr "Return the fourth element of the list X.") +(cl--defalias 'cl-third #'caddr "Return the third element of the list X.") +(cl--defalias 'cl-fourth #'cadddr "Return the fourth element of the list X.") (defsubst cl-fifth (x) "Return the fifth element of the list X." |