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

(cl--make-usage-args): Try and fix bug#79353

Browse source 
* lisp/emacs-lisp/cl-macs.el (cl--make-usage-args): Don't depend on
`cl-extra` when `take` does the job.
This commit is contained in:
Stefan Monnier 2025-09-08 12:39:48 -04:00
parent 6b6cfa8e40
commit 4c74b68fb1
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/cl-macs.el
View file

@ -517,7 +517,7 @@ its argument list allows full Common Lisp conventions."
(when aux
;; `&aux' args aren't arguments, so let's just drop them from the
;; usage info.
(setq arglist (cl-subseq arglist 0 aux))))
(setq arglist (take aux arglist))))
(if (not (proper-list-p arglist))
(let* ((last (last arglist))
(tail (cdr last)))