procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Qinteractive_form): New variable.

Browse source 
(Finteractive_form): Use it.
This commit is contained in:
Chong Yidong 2009-03-24 16:35:52 +00:00
parent 0a1958d6be
commit 3860280a57
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/data.c
View file

@ -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);