From: AndreaCorallo <akrl@sdf.org>
Date: Mon, 9 Mar 2020 16:51:15 +0000 (+0000)
Subject: * Fix store_function_docstring for for native functions
X-Git-Tag: emacs-28.0.90~2727^2~781
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e23856167be46d7817ba02238e25dce37183bd2a;p=emacs.git

* Fix store_function_docstring for for native functions

Do not Nil native_doc fields.  This will be naturally dumped by
pdumper.  This was affecting dumped functions.
---

diff --git a/src/doc.c b/src/doc.c
index 192e2011093..1b6aa01ef04 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -510,12 +510,8 @@ store_function_docstring (Lisp_Object obj, EMACS_INT offset)
 	    XSETCAR (tem, make_fixnum (offset));
 	}
     }
-  else if (SUBR_NATIVE_COMPILEDP (fun))
-    {
-      XSUBR (fun)->native_doc = Qnil;
-    }
   /* Lisp_Subrs have a slot for it.  */
-  else if (SUBRP (fun))
+  else if (SUBRP (fun) && !SUBR_NATIVE_COMPILEDP (fun))
     {
       XSUBR (fun)->doc = offset;
     }