From e23856167be46d7817ba02238e25dce37183bd2a Mon Sep 17 00:00:00 2001 From: AndreaCorallo Date: Mon, 9 Mar 2020 16:51:15 +0000 Subject: [PATCH] * 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. --- src/doc.c | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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; } -- 2.39.5