* src/data.c (Fcommand_modes): Remove the subr bit -- it's not
necessary since it can just use a predicate.
* src/lisp.h (GCALIGNED_STRUCT): Remove command_modes.
* src/lread.c (defsubr): Remove command_modes.
while (SYMBOLP (fun))
fun = Fsymbol_function (fun);
- if (SUBRP (fun))
- {
- if (!NILP (XSUBR (fun)->command_modes))
- return XSUBR (fun)->command_modes;
- }
- else if (COMPILEDP (fun))
+ if (COMPILEDP (fun))
{
Lisp_Object form = AREF (fun, COMPILED_INTERACTIVE);
if (VECTORP (form))
const char *symbol_name;
const char *intspec;
EMACS_INT doc;
- Lisp_Object command_modes;
} GCALIGNED_STRUCT;
union Aligned_Lisp_Subr
{
XSETPVECTYPE (sname, PVEC_SUBR);
XSETSUBR (tem, sname);
set_symbol_function (sym, tem);
- sname->command_modes = Qnil;
}
#ifdef NOTDEF /* Use fset in subr.el now! */