diff options
| author | Roland McGrath <roland@gnu.org> | 1995-01-05 07:06:19 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1995-01-05 07:06:19 +0000 |
| commit | f6a691012a6ce5ef5ecb59191f50b64aa100736c (patch) | |
| tree | 6bf9417c2b90fa393b215327f6ce77508c8dd170 | |
| parent | f5381ca027923c7c652ffd056c23322696ba9e74 (diff) | |
| download | emacs-f6a691012a6ce5ef5ecb59191f50b64aa100736c.tar.gz | |
(Fcall_interactively): Use & PSEUDOVECTOR_SIZE_MASK on `size' field of
compiled byte-code object.
| -rw-r--r-- | src/callint.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/callint.c b/src/callint.c index d8e48752b76..f01db7c5755 100644 --- a/src/callint.c +++ b/src/callint.c @@ -1,5 +1,5 @@ /* Call a Lisp function interactively. - 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. @@ -229,7 +229,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.") } else if (COMPILEDP (fun)) { - if (XVECTOR (fun)->size <= COMPILED_INTERACTIVE) + if (XVECTOR (fun)->size & PSEUDOVECTOR_SIZE_MASK <= COMPILED_INTERACTIVE) goto lose; specs = XVECTOR (fun)->contents[COMPILED_INTERACTIVE]; } |