From: Stefan Kangas <stefankangas@gmail.com>
Date: Tue, 4 Mar 2025 21:47:59 +0000 (+0100)
Subject: Avoid rare warning when byte-compiling cl-loaddefs.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1ca7be42922d0bc08382b0d0b66a7b786afb7a02;p=emacs.git

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 <eliz@gnu.org>.

(cherry picked from commit c18089a6585b319786894262ae0a9034dfbcbcd4)
---

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