diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-08-17 20:06:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-08-17 20:06:55 +0000 |
| commit | 9780c715d54921e200bf046195958ebe4d38be51 (patch) | |
| tree | 9a00c03ec956f8d0e41557c84811822eae90e1aa /src | |
| parent | 2e3a2863660195cb9dc8d1eb3e8befa3d6cfe438 (diff) | |
| download | emacs-9780c715d54921e200bf046195958ebe4d38be51.tar.gz | |
(store_function_docstring): Do nothing for bytecode object
which has no slot for doc string.
Diffstat (limited to 'src')
| -rw-r--r-- | src/doc.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/doc.c b/src/doc.c index 81c22065936..ae6f77ba7e7 100644 --- a/src/doc.c +++ b/src/doc.c @@ -245,10 +245,8 @@ store_function_docstring (fun, offset) { /* This bytecode object must have a slot for the docstring, since we've found a docstring for it. */ - if (XVECTOR (fun)->size <= COMPILED_DOC_STRING) - abort (); - - XFASTINT (XVECTOR (fun)->contents[COMPILED_DOC_STRING]) = offset; + if (XVECTOR (fun)->size > COMPILED_DOC_STRING) + XFASTINT (XVECTOR (fun)->contents[COMPILED_DOC_STRING]) = offset; } } |