mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

; Properly quote some functions in cl-lib as such

Browse source
This commit is contained in:
Stefan Kangas 2025-02-13 03:59:30 +01:00
parent 6077bbfc3d
commit ab43d956ca
1 changed files with 32 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

64
lisp/emacs-lisp/cl-lib.el
View file

@ -185,8 +185,8 @@ to an element already in the list stored in PLACE.
;;; Blocks and exits. ;;; Blocks and exits.
(defalias 'cl--block-wrapper 'identity) (defalias 'cl--block-wrapper #'identity)
(defalias 'cl--block-throw 'throw) (defalias 'cl--block-throw #'throw)
;;; Multiple values. ;;; Multiple values.
@ -232,7 +232,7 @@ right when EXPRESSION calls an ordinary Emacs Lisp function that returns just
one value." one value."
(apply function expression)) (apply function expression))
(defalias 'cl-multiple-value-call 'apply (defalias 'cl-multiple-value-call #'apply
"Apply FUNCTION to ARGUMENTS, taking multiple values into account. "Apply FUNCTION to ARGUMENTS, taking multiple values into account.
This implementation only handles the case where there is only one argument.") This implementation only handles the case where there is only one argument.")
@ -354,7 +354,7 @@ Call `cl-float-limits' to set this.")
;;; Sequence functions. ;;; Sequence functions.
(cl--defalias 'cl-copy-seq 'copy-sequence) (cl--defalias 'cl-copy-seq #'copy-sequence)
(declare-function cl--mapcar-many "cl-extra" (cl-func cl-seqs &optional acc)) (declare-function cl--mapcar-many "cl-extra" (cl-func cl-seqs &optional acc))
@ -374,13 +374,13 @@ SEQ, this is like `mapcar'. With several, it is like the Common Lisp
(nreverse cl-res))) (nreverse cl-res)))
(mapcar cl-func cl-x))) (mapcar cl-func cl-x)))
(cl--defalias 'cl-svref 'aref) (cl--defalias 'cl-svref #'aref)
;;; List functions. ;;; List functions.
(cl--defalias 'cl-first 'car) (cl--defalias 'cl-first #'car)
(cl--defalias 'cl-second 'cadr) (cl--defalias 'cl-second #'cadr)
(cl--defalias 'cl-rest 'cdr) (cl--defalias 'cl-rest #'cdr)
(cl--defalias 'cl-third #'caddr "Return the third 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.") (cl--defalias 'cl-fourth #'cadddr "Return the fourth element of the list X.")
@ -415,30 +415,30 @@ SEQ, this is like `mapcar'. With several, it is like the Common Lisp
(declare (gv-setter (lambda (store) `(setcar (nthcdr 9 ,x) ,store)))) (declare (gv-setter (lambda (store) `(setcar (nthcdr 9 ,x) ,store))))
(nth 9 x)) (nth 9 x))
(defalias 'cl-caaar 'caaar) (defalias 'cl-caaar #'caaar)
(defalias 'cl-caadr 'caadr) (defalias 'cl-caadr #'caadr)
(defalias 'cl-cadar 'cadar) (defalias 'cl-cadar #'cadar)
(defalias 'cl-caddr 'caddr) (defalias 'cl-caddr #'caddr)
(defalias 'cl-cdaar 'cdaar) (defalias 'cl-cdaar #'cdaar)
(defalias 'cl-cdadr 'cdadr) (defalias 'cl-cdadr #'cdadr)
(defalias 'cl-cddar 'cddar) (defalias 'cl-cddar #'cddar)
(defalias 'cl-cdddr 'cdddr) (defalias 'cl-cdddr #'cdddr)
(defalias 'cl-caaaar 'caaaar) (defalias 'cl-caaaar #'caaaar)
(defalias 'cl-caaadr 'caaadr) (defalias 'cl-caaadr #'caaadr)
(defalias 'cl-caadar 'caadar) (defalias 'cl-caadar #'caadar)
(defalias 'cl-caaddr 'caaddr) (defalias 'cl-caaddr #'caaddr)
(defalias 'cl-cadaar 'cadaar) (defalias 'cl-cadaar #'cadaar)
(defalias 'cl-cadadr 'cadadr) (defalias 'cl-cadadr #'cadadr)
(defalias 'cl-caddar 'caddar) (defalias 'cl-caddar #'caddar)
(defalias 'cl-cadddr 'cadddr) (defalias 'cl-cadddr #'cadddr)
(defalias 'cl-cdaaar 'cdaaar) (defalias 'cl-cdaaar #'cdaaar)
(defalias 'cl-cdaadr 'cdaadr) (defalias 'cl-cdaadr #'cdaadr)
(defalias 'cl-cdadar 'cdadar) (defalias 'cl-cdadar #'cdadar)
(defalias 'cl-cdaddr 'cdaddr) (defalias 'cl-cdaddr #'cdaddr)
(defalias 'cl-cddaar 'cddaar) (defalias 'cl-cddaar #'cddaar)
(defalias 'cl-cddadr 'cddadr) (defalias 'cl-cddadr #'cddadr)
(defalias 'cl-cdddar 'cdddar) (defalias 'cl-cdddar #'cdddar)
(defalias 'cl-cddddr 'cddddr) (defalias 'cl-cddddr #'cddddr)
;;(defun last* (x &optional n) ;;(defun last* (x &optional n)
;; "Returns the last link in the list LIST. ;; "Returns the last link in the list LIST.