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:
parent
22d3f0e95a
commit
493ae66be0
2 changed files with 22 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue