diff options
author | Roland McGrath <roland@gnu.org> | 1995-01-05 07:11:54 +0000 |
---|---|---|
committer | Roland McGrath <roland@gnu.org> | 1995-01-05 07:11:54 +0000 |
commit | 56abfc893c9d66b94adbd4f8d8e45130ab2f798e (patch) | |
tree | 1a8b959b97bec0952c2188b813313097b15810bf /src/doc.c | |
parent | f6a691012a6ce5ef5ecb59191f50b64aa100736c (diff) | |
download | emacs-56abfc893c9d66b94adbd4f8d8e45130ab2f798e.tar.gz |
(store_function_docstring, Fdocumentation): Use & PSEUDOVECTOR_SIZE_MASK on
`size' field of compiled byte-code object.
Diffstat (limited to 'src/doc.c')
-rw-r--r-- | src/doc.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/doc.c b/src/doc.c index d401fe73305..6c998636a7b 100644 --- a/src/doc.c +++ b/src/doc.c @@ -1,11 +1,11 @@ /* Record indices of function doc strings stored in a file. - Copyright (C) 1985, 1986, 1993, 1994 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993, 1994, 1995 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 1, or (at your option) +the Free Software Foundation; either version 2, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, @@ -279,7 +279,7 @@ string is passed through `substitute-command-keys'.") } else if (COMPILEDP (fun)) { - if (XVECTOR (fun)->size <= COMPILED_DOC_STRING) + if (XVECTOR (fun)->size & PSEUDOVECTOR_SIZE_MASK <= COMPILED_DOC_STRING) return Qnil; tem = XVECTOR (fun)->contents[COMPILED_DOC_STRING]; if (STRINGP (tem)) @@ -394,7 +394,7 @@ 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) + if (XVECTOR (fun)->size & PSEUDOVECTOR_SIZE_MASK > COMPILED_DOC_STRING) XSETFASTINT (XVECTOR (fun)->contents[COMPILED_DOC_STRING], offset); } } |