(Fcommandp): Change `->prompt' to `->intspec'.

diff --git a/src/ChangeLog b/src/ChangeLog
index 9dcbaa21fa508386a68e9a6d29a647a74dcb9eb9..19854387b6acd3389188bd1da837971351934aad 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -3,6 +3,8 @@
        * lisp.h (struct Lisp_Subr): Rename `prompt' field to `intspec'.
        (DEFUN): Document `intspec', use it instead of `prompt'.
 
+       * eval.c (Fcommandp): Change `->prompt' to `->intspec'.
+
        * callint.c (Fcall_interactively): Comment fixes.
 
 2007-09-10  Stefan Monnier  <monnier@iro.umontreal.ca>

diff --git a/src/eval.c b/src/eval.c
index 830476a61bc943eedcb97a0adf5b37fa26c1b10d..26332fa9dfb6477916cfdb29a3c7fec33c2ac005 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -2078,7 +2078,7 @@ then strings and vectors are not accepted.  */)
   /* Emacs primitives are interactive if their DEFUN specifies an
      interactive spec.  */
   if (SUBRP (fun))
-    return XSUBR (fun)->prompt ? Qt : if_prop;
+    return XSUBR (fun)->intspec ? Qt : if_prop;
 
   /* Bytecode objects are interactive if they are long enough to
      have an element whose index is COMPILED_INTERACTIVE, which is