diff options
Diffstat (limited to 'src/data.c')
| -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); |