diff options
| author | AndreaCorallo <akrl@sdf.org> | 2020-03-09 16:51:15 +0000 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-03-10 10:43:48 +0000 |
| commit | e23856167be46d7817ba02238e25dce37183bd2a (patch) | |
| tree | cf81b825f08628efd38ad19e3c4c4dec0060a6fb /src/doc.c | |
| parent | 2cf4b81009eeedd1b441af093c0ca147d0d9bbb9 (diff) | |
| download | emacs-e23856167be46d7817ba02238e25dce37183bd2a.tar.gz emacs-e23856167be46d7817ba02238e25dce37183bd2a.tar.bz2 emacs-e23856167be46d7817ba02238e25dce37183bd2a.zip | |
* 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.
Diffstat (limited to 'src/doc.c')
| -rw-r--r-- | src/doc.c | 6 |
1 files changed, 1 insertions, 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; } |