From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 24 Mar 2009 16:37:25 +0000 (+0000)
Subject: (Fcommandp): Use Qinteractive_form.
X-Git-Tag: emacs-pretest-23.0.92~76
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b9aa051bc4fc6546dab187b37841827ec9ac965;p=emacs.git

(Fcommandp): Use Qinteractive_form.
---

diff --git a/src/eval.c b/src/eval.c
index a16576ceaaa..fb1ed276c42 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -97,6 +97,7 @@ Lisp_Object Qand_rest, Qand_optional;
 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 @@ then strings and vectors are not accepted.  */)
   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);