feature/native-comp bce9cad: * Store raw documentation during native compilation (bug#42974)

[Andrea Corallo]

branch: feature/native-comp
commit bce9cad4213f9af8be08311ac2b93add5c93a997
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * 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 238bdcd..84b5a8b 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