# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1237912552 0
# Node ID ec53ed9e6925a8d33a0d5ac423262954dcf6386c
# Parent  a00bab48aee0a511359f20f743f63dcd94fa468a
(Qinteractive_form): New variable.
(Finteractive_form): Use it.

diff -r a00bab48aee0 -r ec53ed9e6925 src/data.c
--- a/src/data.c	Tue Mar 24 16:35:27 2009 +0000
+++ b/src/data.c	Tue Mar 24 16:35:52 2009 +0000
@@ -88,6 +88,8 @@
 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 @@
   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 @@
   DEFSYM (Qfont_entity, "font-entity");
   DEFSYM (Qfont_object, "font-object");
 
+  DEFSYM (Qinteractive_form, "interactive-form");
+
   staticpro (&Qinteger);
   staticpro (&Qsymbol);
   staticpro (&Qstring);