Mercurial > emacs

changeset 8552:1353c008cf8e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(store_function_docstring): Do nothing for bytecode object which has no slot for doc string.
author Richard M. Stallman <rms@gnu.org>
date Wed, 17 Aug 1994 20:06:55 +0000
parents 121cdea46830
children 090fb6dea9dd
files src/doc.c
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/doc.c	Wed Aug 17 01:45:45 1994 +0000
+++ b/src/doc.c	Wed Aug 17 20:06:55 1994 +0000
@@ -245,10 +245,8 @@
     {
       /* 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;
     }
 }