From: Andrea Corallo <acorallo@gnu.org>
Date: Tue, 14 May 2024 07:58:42 +0000 (+0200)
Subject: * Allow for optional function name parameter in 'ftype' declaration
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~1502
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=b87670b56460185bec902806daa52b05faa5d26d;p=emacs.git

* Allow for optional function name parameter in 'ftype' declaration

* lisp/emacs-lisp/byte-run.el (defun-declarations-alist): Allow for
optional function name parameter in 'ftype' declaration.
---

diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 2031049e678..2fa646f2531 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -223,7 +223,11 @@ So far, FUNCTION can only be a symbol, not a lambda expression."
               val)))))
 
 (defalias 'byte-run--set-function-type
-  #'(lambda (f _args val)
+  #'(lambda (f _args val &optional f2)
+      (when (and f2 (not (eq f2 f)))
+        (error
+         "`%s' does not match top level function `%s' inside function type \
+declaration" f2 f))
       (list 'function-put (list 'quote f)
             ''function-type (list 'quote val))))