(Qinteractive_form): New variable.

(Finteractive_form): Use it.

diff --git a/src/data.c b/src/data.c
index 6221b78760800afe14de8b1892a4031779eb3887..33692e33781e7184916289bf8844e574361df79f 100644 (file)
--- 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);