Mercurial > emacs

changeset 10342:01d13c22797e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcommandp): Use & PSEUDOVECTOR_SIZE_MASK on `size' field of compiled byte-code object.
author Roland McGrath <roland@gnu.org>
date Thu, 05 Jan 1995 07:05:16 +0000
parents f27bcd1faf07
children daaf64864c1c
files src/eval.c
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/eval.c	Thu Jan 05 00:23:50 1995 +0000
+++ b/src/eval.c	Thu Jan 05 07:05:16 1995 +0000
@@ -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 @@
      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.  */