]> git.eshelyaron.com Git - emacs.git/commitdiff
Give define-minor-mode's modes defining symbols.
authorAlan Mackenzie <acm@muc.de>
Fri, 27 Oct 2023 11:02:54 +0000 (11:02 +0000)
committerAlan Mackenzie <acm@muc.de>
Fri, 27 Oct 2023 11:02:54 +0000 (11:02 +0000)
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

index 529f6e90e8854a7f2d1ad2ccf71ac2d6bde21263..b8f1867abf9b6e77fb6636bf40a0041365134c49 100644 (file)
@@ -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