diff options
| author | Roland McGrath | 1995-01-05 07:06:19 +0000 |
|---|---|---|
| committer | Roland McGrath | 1995-01-05 07:06:19 +0000 |
| commit | 4e87700b1e6a90e2c0ad43585c823de6c6724fe9 (patch) | |
| tree | 34bf7fc7b1b969d78e593d08610b26e32ffae245 /src | |
| parent | 96277b2df93d9e3bcbc396498249a3fafb5e1e52 (diff) | |
| download | emacs-4e87700b1e6a90e2c0ad43585c823de6c6724fe9.tar.gz emacs-4e87700b1e6a90e2c0ad43585c823de6c6724fe9.zip | |
(Fcall_interactively): Use & PSEUDOVECTOR_SIZE_MASK on `size' field of
compiled byte-code object.
Diffstat (limited to 'src')
| -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 @@ | |||
| 1 | /* Call a Lisp function interactively. | 1 | /* Call a Lisp function interactively. |
| 2 | Copyright (C) 1985, 1986, 1993, 1994 Free Software Foundation, Inc. | 2 | Copyright (C) 1985, 1986, 1993, 1994, 1995 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | This file is part of GNU Emacs. | 4 | This file is part of GNU Emacs. |
| 5 | 5 | ||
| @@ -229,7 +229,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.") | |||
| 229 | } | 229 | } |
| 230 | else if (COMPILEDP (fun)) | 230 | else if (COMPILEDP (fun)) |
| 231 | { | 231 | { |
| 232 | if (XVECTOR (fun)->size <= COMPILED_INTERACTIVE) | 232 | if (XVECTOR (fun)->size & PSEUDOVECTOR_SIZE_MASK <= COMPILED_INTERACTIVE) |
| 233 | goto lose; | 233 | goto lose; |
| 234 | specs = XVECTOR (fun)->contents[COMPILED_INTERACTIVE]; | 234 | specs = XVECTOR (fun)->contents[COMPILED_INTERACTIVE]; |
| 235 | } | 235 | } |