1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 23:40:24 -08:00

define-globalized-minor-mode: Use unique MODE-major-mode (bug#79198)

* lisp/emacs-lisp/easy-mmode.el (define-globalized-minor-mode)
<MODE-set-explicitly>: Make this an internal variable using '--'.
<MODE-major-mode>: Make this an internal variable using '--'.
Use the name of the global mode not the local mode (bug#79198).
This commit is contained in:
Sean Whitton 2025-08-09 10:43:26 +01:00
parent 4dd67e5d73
commit c05ea64d82

View file

@ -499,8 +499,9 @@ on if the hook has explicitly disabled it.
(MODE-enable-in-buffer
(intern (concat global-mode-name "-enable-in-buffer")))
(minor-MODE-hook (intern (concat mode-name "-hook")))
(MODE-set-explicitly (intern (concat mode-name "-set-explicitly")))
(MODE-major-mode (intern (concat (symbol-name mode) "-major-mode")))
(MODE-set-explicitly (intern (concat mode-name "--set-explicitly")))
(MODE-major-mode (intern (concat (symbol-name global-mode)
"--major-mode")))
(MODE-predicate (intern (concat (replace-regexp-in-string
"-mode\\'" "" global-mode-name)
"-modes")))