[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/command 3b48d28: Only store the command modes if we have some
From: |
Lars Ingebrigtsen |
Subject: |
scratch/command 3b48d28: Only store the command modes if we have some |
Date: |
Thu, 11 Feb 2021 10:59:03 -0500 (EST) |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scratch/command 3b48d28: Only store the command modes if we have some,
Lars Ingebrigtsen <=