From bce9cad4213f9af8be08311ac2b93add5c93a997 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 30 Aug 2020 10:23:49 +0200 Subject: [PATCH] * Store raw documentation during native compilation (bug#42974) * lisp/emacs-lisp/comp.el (comp-spill-lap-function) (comp-intern-func-in-ctxt): Use raw documentation. --- lisp/emacs-lisp/comp.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 238bdcd5dbd..84b5a8bc873 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -671,7 +671,7 @@ clashes." (c-name (comp-c-func-name function-name "F")) (func (make-comp-func-l :name function-name :c-name c-name - :doc (documentation f) + :doc (documentation f t) :int-spec (interactive-form f) :speed (comp-spill-speed function-name) :pure (comp-spill-decl-spec function-name @@ -720,7 +720,7 @@ clashes." (make-comp-func-d :lambda-list (aref byte-func 0))))) (setf (comp-func-name func) name (comp-func-byte-func func) byte-func - (comp-func-doc func) (documentation byte-func) + (comp-func-doc func) (documentation byte-func t) (comp-func-int-spec func) (interactive-form byte-func) (comp-func-c-name func) c-name (comp-func-lap func) lap -- 2.39.5