From 1ca7be42922d0bc08382b0d0b66a7b786afb7a02 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 4 Mar 2025 22:47:59 +0100 Subject: [PATCH] Avoid rare warning when byte-compiling cl-loaddefs.el * lisp/emacs-lisp/cl-extra.el: Add autoloaded declare-function to avoid rare byte-compilation warning. Problem reported by Eli Zaretskii . (cherry picked from commit c18089a6585b319786894262ae0a9034dfbcbcd4) --- lisp/emacs-lisp/cl-extra.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 0ebc89a3287..0fd4f43077d 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -124,7 +124,7 @@ strings case-insensitively." (if (consp cl-y) (pop cl-y) (aref cl-y cl-i))))) (when acc (push val cl-res))))) - (and acc (nreverse cl-res))))) + (and acc (nreverse cl-res))))) ;;;###autoload (defsubst cl-map (cl-type cl-func cl-seq &rest cl-rest) @@ -132,7 +132,7 @@ strings case-insensitively." TYPE is the sequence type to return. \n(fn TYPE FUNCTION SEQUENCE...)" (declare (important-return-value t)) - (let ((cl-res (apply #'cl-mapcar cl-func cl-seq cl-rest))) + (let ((cl-res (apply 'cl-mapcar cl-func cl-seq cl-rest))) (and cl-type (cl-coerce cl-res cl-type)))) ;;;###autoload -- 2.39.5