Preserve doc string in byte-compile (bug#55830)

* lisp/emacs-lisp/bytecomp.el (byte-compile--reify-function):
Don't transpose doc string and interactive spec, which must come
in this order.
* test/lisp/emacs-lisp/bytecomp-tests.el
(bytecomp-function-attributes): New test.
This commit is contained in:
Mattias Engdegård 2022-06-08 10:03:55 +02:00
parent 22d3f0e95a
commit 493ae66be0
2 changed files with 22 additions and 0 deletions

View file

@ -2926,6 +2926,7 @@ FUN should be either a `lambda' value or a `closure' value."
(push (pop body) preamble))
(when (eq (car-safe (car body)) 'interactive)
(push (pop body) preamble))
(setq preamble (nreverse preamble))
;; Turn the function's closed vars (if any) into local let bindings.
(dolist (binding env)
(cond