diff options
Diffstat (limited to 'src/callint.c')
| -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]; } |