Mercurial > emacs

changeset 102719:1ffe92a6d13c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcommandp): Use Qinteractive_form.
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 24 Mar 2009 16:37:25 +0000
parents ec53ed9e6925
children cd23f75baeb8
files src/eval.c
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/eval.c	Tue Mar 24 16:35:52 2009 +0000
+++ b/src/eval.c	Tue Mar 24 16:37:25 2009 +0000
@@ -97,6 +97,7 @@
 Lisp_Object Qdebug_on_error;
 Lisp_Object Qdeclare;
 Lisp_Object Qdebug;
+extern Lisp_Object Qinteractive_form;
 
 /* This holds either the symbol `run-hooks' or nil.
    It is nil at an early stage of startup, and when Emacs
@@ -2084,7 +2085,7 @@
   fun = function;
   while (SYMBOLP (fun))
     {
-      Lisp_Object tmp = Fget (fun, intern ("interactive-form"));
+      Lisp_Object tmp = Fget (fun, Qinteractive_form);
       if (!NILP (tmp))
 	if_prop = Qt;
       fun = Fsymbol_function (fun);