master 8cdb616 05/12: Revert the bit about command_modes in previous patch set

[Lars Ingebrigtsen]

branch: master
commit 8cdb61679e169a68829a3122d4eda7139199f7ee
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Revert the bit about command_modes in previous patch set
    
    * 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  | 7 +------
 src/lisp.h  | 1 -
 src/lread.c | 1 -
 3 files changed, 1 insertion(+), 8 deletions(-)

diff --git a/src/data.c b/src/data.c
index 7bddc03..ace859d 100644
--- a/src/data.c
+++ b/src/data.c
@@ -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))
diff --git a/src/lisp.h b/src/lisp.h
index 697dd89..b95f389 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -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
   {
diff --git a/src/lread.c b/src/lread.c
index 8b8ba93..dea1b23 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -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!  */