From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 24 Mar 2009 16:35:52 +0000 (+0000)
Subject: (Qinteractive_form): New variable.
X-Git-Tag: emacs-pretest-23.0.92~77
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3860280a574122953887e1a05018ae83d7df69e5;p=emacs.git

(Qinteractive_form): New variable.
(Finteractive_form): Use it.
---

diff --git a/src/data.c b/src/data.c
index 6221b787608..33692e33781 100644
--- a/src/data.c
+++ b/src/data.c
@@ -88,6 +88,8 @@ static Lisp_Object Qchar_table, Qbool_vector, Qhash_table;
 static Lisp_Object Qsubrp, Qmany, Qunevalled;
 Lisp_Object Qfont_spec, Qfont_entity, Qfont_object;
 
+Lisp_Object Qinteractive_form;
+
 static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object));
 
 Lisp_Object Vmost_positive_fixnum, Vmost_negative_fixnum;
@@ -765,7 +767,7 @@ Value, if non-nil, is a list \(interactive SPEC).  */)
   fun = cmd;
   while (SYMBOLP (fun))
     {
-      Lisp_Object tmp = Fget (fun, intern ("interactive-form"));
+      Lisp_Object tmp = Fget (fun, Qinteractive_form);
       if (!NILP (tmp))
 	return tmp;
       else
@@ -3152,6 +3154,8 @@ syms_of_data ()
   DEFSYM (Qfont_entity, "font-entity");
   DEFSYM (Qfont_object, "font-object");
 
+  DEFSYM (Qinteractive_form, "interactive-form");
+
   staticpro (&Qinteger);
   staticpro (&Qsymbol);
   staticpro (&Qstring);