procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* lisp/emacs-lisp/byte-run.el (defun-declarations-alist): Allow for
optional function name parameter in 'ftype' declaration.
This commit is contained in:
Andrea Corallo 2024-05-14 09:58:42 +02:00
parent 6e1bb713f6
commit b87670b564
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/byte-run.el
View file

@ -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))))