]> git.eshelyaron.com Git - emacs.git/commitdiff
Revert the bit about command_modes in previous patch set
authorLars Ingebrigtsen <larsi@gnus.org>
Sun, 14 Feb 2021 12:57:59 +0000 (13:57 +0100)
committerLars Ingebrigtsen <larsi@gnus.org>
Sun, 14 Feb 2021 12:57:59 +0000 (13:57 +0100)
* 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.

src/data.c
src/lisp.h
src/lread.c

index 7bddc039f6f186c85fc4476866544650758e223f..ace859d2d0cc2daf6458b900c643af0865bfd8c6 100644 (file)
@@ -961,12 +961,7 @@ The value, if non-nil, is a list of mode name symbols.  */)
   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))
index 697dd89363c3ccaf115c0ee041fe94fa381b0f87..b95f389b89024cedb39bb52af7ea63705e0ecdb2 100644 (file)
@@ -2060,7 +2060,6 @@ struct Lisp_Subr
     const char *symbol_name;
     const char *intspec;
     EMACS_INT doc;
-    Lisp_Object command_modes;
   } GCALIGNED_STRUCT;
 union Aligned_Lisp_Subr
   {
index 8b8ba93c607d8890fa929c40328c53f06f42b6dc..dea1b232fff83bacd7810a304d1536746a7409e9 100644 (file)
@@ -4467,7 +4467,6 @@ defsubr (union Aligned_Lisp_Subr *aname)
   XSETPVECTYPE (sname, PVEC_SUBR);
   XSETSUBR (tem, sname);
   set_symbol_function (sym, tem);
-  sname->command_modes = Qnil;
 }
 
 #ifdef NOTDEF /* Use fset in subr.el now!  */