[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 02cbb37 1/2: Allow nil initializers in define-minor-mode
From: |
Lars Ingebrigtsen |
Subject: |
master 02cbb37 1/2: Allow nil initializers in define-minor-mode |
Date: |
Sat, 31 Jul 2021 07:29:35 -0400 (EDT) |
branch: master
commit 02cbb37de73d563149389615ee44741322007108
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Allow nil initializers in define-minor-mode
* lisp/emacs-lisp/easy-mmode.el (define-minor-mode): Make the
meaning of :initialize nil and a missing :initialize the same.
---
lisp/emacs-lisp/easy-mmode.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 3a00fdb..6530d06 100644
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -251,7 +251,9 @@ INIT-VALUE LIGHTER KEYMAP.
(setq getter `(default-value ',mode))))
(:extra-args (setq extra-args (pop body)))
(:set (setq set (list :set (pop body))))
- (:initialize (setq initialize (list :initialize (pop body))))
+ (:initialize
+ (when-let ((val (pop body)))
+ (setq initialize (list :initialize val))))
(:type (setq type (list :type (pop body))))
(:keymap (setq keymap (pop body)))
(:interactive (setq interactive (pop body)))