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 0ebc89a32870370413074ba7d92697c2be320d51..0fd4f43077d684896a0f00c99383c8cf97c8ce7d 100644 (file)
--- 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