* 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.

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 238bdcd5dbd8ea132cac26cfb97e082f24fd5f03..84b5a8bc87392f058f4a9309d941253be6e78a37 100644 (file)
--- 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