Mercurial > emacs
changeset 102718:ec53ed9e6925
(Qinteractive_form): New variable.
(Finteractive_form): Use it.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 24 Mar 2009 16:35:52 +0000 |
| parents | a00bab48aee0 |
| children | 1ffe92a6d13c |
| files | src/data.c |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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);