Commit 3860280a authored by Chong Yidong's avatar Chong Yidong

(Qinteractive_form): New variable.

(Finteractive_form): Use it.
parent 0a1958d6
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment