scratch/command c46c1d5: Add some comments

[Lars Ingebrigtsen]

branch: scratch/command
commit c46c1d592e61fa6fa7ee31b7ff54304579db73e6
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Add some comments
---
 src/data.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/data.c b/src/data.c
index ad5ee66..f7602c2 100644
--- a/src/data.c
+++ b/src/data.c
@@ -907,8 +907,12 @@ Value, if non-nil, is a list (interactive SPEC).  */)
        {
          Lisp_Object form = AREF (fun, COMPILED_INTERACTIVE);
          if (VECTORP (form))
+           /* The vector form is the new form, where the first
+              element is the interactive spec, and the second is the
+              command modes. */
            return list2 (Qinteractive, AREF (form, 0));
          else
+           /* Old form -- just the interactive spec. */
            return list2 (Qinteractive, form);
        }
     }
@@ -966,8 +970,10 @@ The value, if non-nil, is a list of mode name symbols.  */)
     {
       Lisp_Object form = AREF (fun, COMPILED_INTERACTIVE);
       if (VECTORP (form))
+       /* New form -- the second element is the command modes. */
        return AREF (form, 1);
       else
+       /* Old .elc file -- no command modes. */
        return Qnil;
     }
 #ifdef HAVE_MODULES