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

(Qinteractive_form): New variable.

(Finteractive_form): Use it.
parent 0a1958d6
...@@ -88,6 +88,8 @@ static Lisp_Object Qchar_table, Qbool_vector, Qhash_table; ...@@ -88,6 +88,8 @@ static Lisp_Object Qchar_table, Qbool_vector, Qhash_table;
static Lisp_Object Qsubrp, Qmany, Qunevalled; static Lisp_Object Qsubrp, Qmany, Qunevalled;
Lisp_Object Qfont_spec, Qfont_entity, Qfont_object; Lisp_Object Qfont_spec, Qfont_entity, Qfont_object;
Lisp_Object Qinteractive_form;
static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object)); static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object));
Lisp_Object Vmost_positive_fixnum, Vmost_negative_fixnum; Lisp_Object Vmost_positive_fixnum, Vmost_negative_fixnum;
...@@ -765,7 +767,7 @@ Value, if non-nil, is a list \(interactive SPEC). */) ...@@ -765,7 +767,7 @@ Value, if non-nil, is a list \(interactive SPEC). */)
fun = cmd; fun = cmd;
while (SYMBOLP (fun)) while (SYMBOLP (fun))
{ {
Lisp_Object tmp = Fget (fun, intern ("interactive-form")); Lisp_Object tmp = Fget (fun, Qinteractive_form);
if (!NILP (tmp)) if (!NILP (tmp))
return tmp; return tmp;
else else
...@@ -3152,6 +3154,8 @@ syms_of_data () ...@@ -3152,6 +3154,8 @@ syms_of_data ()
DEFSYM (Qfont_entity, "font-entity"); DEFSYM (Qfont_entity, "font-entity");
DEFSYM (Qfont_object, "font-object"); DEFSYM (Qfont_object, "font-object");
DEFSYM (Qinteractive_form, "interactive-form");
staticpro (&Qinteger); staticpro (&Qinteger);
staticpro (&Qsymbol); staticpro (&Qsymbol);
staticpro (&Qstring); 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