Pass lazy doc string to 'defalias'

* lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defalias):
We correctly emit a lazy-loaded doc string but then passed a literal
string to 'defalias' by mistake; fix that.  Saves 40 KiB in .elc files.
This commit is contained in:
Mattias Engdegård 2026-01-30 15:42:53 +01:00
parent c1029c88a8
commit ae7761598d

View file

@ -5141,7 +5141,8 @@ binding slots have been popped."
(when (stringp doc)
(setq rest (byte-compile--list-with-n
rest 0
(byte-compile--docstring doc (nth 0 form) name)))))
(byte-compile--docstring doc (nth 0 form) name)))
(setq form (nconc (take 3 form) rest))))
(pcase-let*
;; `macro' is non-nil if it defines a macro.
;; `fun' is the function part of `arg' (defaults to `arg').