From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 19 Sep 2020 15:21:02 +0000 (+0200)
Subject: Allow customizing hooks defined via define-minor-mode
X-Git-Tag: emacs-28.0.90~6005
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=144bbfc6625c4e5c8a247d05f7a1dc45c2b62553;p=emacs.git

Allow customizing hooks defined via define-minor-mode

* lisp/emacs-lisp/easy-mmode.el (define-minor-mode): Allow using
Customize on the hooks (bug#10773).
---

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index e3eb9294ed6..fdc1233540e 100644
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -335,6 +335,9 @@ or call the function `%s'."))))
 No problems result if this variable is not bound.
 `add-hook' automatically binds it.  (This is true for all hook variables.)"
                        modefun)))
+       ;; Allow using using `M-x customize-variable' on the hook.
+       (put ',hook 'custom-type 'hook)
+       (put ',hook 'standard-value (list nil))
 
        ;; Define the minor-mode keymap.
        ,(unless (symbolp keymap)	;nil is also a symbol.