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 | a1943c34bbccbd5d39d617a79af52eaaaa970d30 (patch) | |
| tree | 9753dee70aed3d15b2196ca1a79b07d5f5e98d26 /src/doc.c | |
| parent | c1033e008cdc1c772201c67893dd34fc87ca9240 (diff) | |
| download | emacs-a1943c34bbccbd5d39d617a79af52eaaaa970d30.tar.gz | |
(store_function_docstring): Do nothing for bytecode object
which has no slot for doc string.
Diffstat (limited to 'src/doc.c')
| -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; } } |