diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-03-24 16:35:52 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-03-24 16:35:52 +0000 |
| commit | 3860280a574122953887e1a05018ae83d7df69e5 (patch) | |
| tree | 107c07b3a11ee0f0e6ae4f50ea9ff875bb400f54 /src | |
| parent | 0a1958d6be13081576b5fbe72a4fa3dd23670edd (diff) | |
| download | emacs-3860280a574122953887e1a05018ae83d7df69e5.tar.gz emacs-3860280a574122953887e1a05018ae83d7df69e5.tar.bz2 emacs-3860280a574122953887e1a05018ae83d7df69e5.zip | |
(Qinteractive_form): New variable.
(Finteractive_form): Use it.
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/data.c b/src/data.c index 6221b787608..33692e33781 100644 --- 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); |