diff options
| author | Roland McGrath <roland@gnu.org> | 1995-01-05 07:05:16 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1995-01-05 07:05:16 +0000 |
| commit | 96277b2df93d9e3bcbc396498249a3fafb5e1e52 (patch) | |
| tree | be2182cbea4aa7db281c1231334fec8bec8931f0 /src/eval.c | |
| parent | 45c3304d43324cfcddea085820ed8a1b78784496 (diff) | |
| download | emacs-96277b2df93d9e3bcbc396498249a3fafb5e1e52.tar.gz emacs-96277b2df93d9e3bcbc396498249a3fafb5e1e52.tar.bz2 emacs-96277b2df93d9e3bcbc396498249a3fafb5e1e52.zip | |
(Fcommandp): Use & PSEUDOVECTOR_SIZE_MASK on `size' field of compiled
byte-code object.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/eval.c b/src/eval.c index c65744b9646..8626f790af7 100644 --- a/src/eval.c +++ b/src/eval.c @@ -1,11 +1,11 @@ /* Evaluator for GNU Emacs Lisp interpreter. - Copyright (C) 1985, 1986, 1987, 1993, 1994 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 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, @@ -1392,7 +1392,7 @@ Also, a symbol satisfies `commandp' if its function definition does so.") have an element whose index is COMPILED_INTERACTIVE, which is where the interactive spec is stored. */ else if (COMPILEDP (fun)) - return (XVECTOR (fun)->size > COMPILED_INTERACTIVE + return (XVECTOR (fun)->size & PSEUDOVECTOR_SIZE_MASK > COMPILED_INTERACTIVE ? Qt : Qnil); /* Strings and vectors are keyboard macros. */ |