scratch/command 3b48d28: Only store the command modes if we have some

[Lars Ingebrigtsen]

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

    Only store the command modes if we have some
---
 lisp/emacs-lisp/bytecomp.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index ecdf1df..eb13a5d 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3016,8 +3016,14 @@ for symbols generated by the byte compiler itself."
                      (list doc)))
               ;; optionally, the interactive spec (and the modes the
               ;; command applies to).
-              (and int
-                   (list (vector (nth 1 int) command-modes))))))))
+              (cond
+               ;; We have some command modes, so use the vector form.
+               (command-modes
+                (list (vector (nth 1 int) command-modes)))
+               ;; No command modes, use the simple form with just the
+               ;; interactive spec.
+               (int
+                (list (nth 1 int)))))))))
 
 (defvar byte-compile-reserved-constants 0)