From 4c74b68fb1f23db6ba770f7322efe378f3492751 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 8 Sep 2025 12:39:48 -0400 Subject: [PATCH] (cl--make-usage-args): Try and fix bug#79353 * lisp/emacs-lisp/cl-macs.el (cl--make-usage-args): Don't depend on `cl-extra` when `take` does the job. --- lisp/emacs-lisp/cl-macs.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 08a6cbf209d..63d85623fbe 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -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)))