From: Andrea Corallo <acorallo@gnu.org>
Date: Fri, 31 May 2024 15:00:50 +0000 (+0200)
Subject: * lisp/emacs-lisp/comp.el (native-compile): Type declare.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=968bfb17d1180c00d3a59abc802b1b80939b85fe;p=emacs.git

* lisp/emacs-lisp/comp.el (native-compile): Type declare.

(cherry picked from commit e39e96c9b93cf99d50f99f3e0593cbfbf0ac758d)
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 32d4442ca1b..1627294199a 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3583,6 +3583,8 @@ is a filename, if the compilation was successful return the
 filename of the compiled object.  If FUNCTION-OR-FILE is a
 function symbol or a form, if the compilation was successful
 return the compiled function."
+  (declare (ftype (function ((or string symbol) &optional string)
+                            (or native-comp-function string))))
   (comp--native-compile function-or-file nil output))
 
 ;;;###autoload