From 25497696ff3d114467416304a94c20d48b6039d4 Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Fri, 27 Oct 2023 11:02:54 +0000 Subject: [PATCH] Give define-minor-mode's modes defining symbols. This is for these modes' defining symbols when native compiled. * lisp/emacs-lisp/easy-mmode.el (define-minor-mode): Bind defining-symbol to the mode's symbol at macro-expansion time. --- lisp/emacs-lisp/easy-mmode.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 529f6e90e88..b8f1867abf9 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -245,6 +245,9 @@ INIT-VALUE LIGHTER KEYMAP. (hook-on (intern (concat mode-name "-on-hook"))) (hook-off (intern (concat mode-name "-off-hook"))) (interactive t) +;;;; NEW STOUGH, 2023-10-26 + (defining-symbol mode) +;;;; END OF NEW STOUGH (warnwrap (if (or (null body) (keywordp (car body))) #'identity (lambda (exp) (macroexp-warn-and-return -- 2.39.2