[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp e238561 3/5: * Fix store_function_docstring for for
From: |
Andrea Corallo |
Subject: |
feature/native-comp e238561 3/5: * Fix store_function_docstring for for native functions |
Date: |
Tue, 10 Mar 2020 08:39:41 -0400 (EDT) |
branch: feature/native-comp
commit e23856167be46d7817ba02238e25dce37183bd2a
Author: AndreaCorallo <address@hidden>
Commit: Andrea Corallo <address@hidden>
* 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 192e201..1b6aa01 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;
}