From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 30 Aug 2020 08:23:49 +0000 (+0200)
Subject: * Store raw documentation during native compilation (bug#42974)
X-Git-Tag: emacs-28.0.90~2727^2~468
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bce9cad4213f9af8be08311ac2b93add5c93a997;p=emacs.git

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