From 541b8aff2bce778d4ec817c37d3197cf40518aaf Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 9 Aug 2001 14:51:20 +0000 Subject: [PATCH] (minor-mode-alist): Use mode-line-minor-mode-keymap for the minor mode name. --- lisp/bindings.el | 50 +++++++++++++++++++++--------------------------- 1 file changed, 22 insertions(+), 28 deletions(-) diff --git a/lisp/bindings.el b/lisp/bindings.el index cdaff02a7ef..af5d65dd20b 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -232,34 +232,6 @@ Normally nil in most modes, since there is no process to display.") `(-3 . ,(propertize "%p" 'help-echo help-echo)) (propertize "-%-" 'help-echo help-echo)))) -(defvar minor-mode-alist nil "\ -Alist saying how to show minor modes in the mode line. -Each element looks like (VARIABLE STRING); -STRING is included in the mode line iff VARIABLE's value is non-nil. - -Actually, STRING need not be a string; any possible mode-line element -is okay. See `mode-line-format'.") -;; Don't use purecopy here--some people want to change these strings. -(setq minor-mode-alist - (list - (list 'abbrev-mode - (propertize " Abbrev" - 'help-echo (purecopy - "mouse-2: turn off Abbrev mode") - 'local-map (purecopy (make-mode-line-mouse-map - 'mouse-2 - #'mode-line-abbrev-mode)))) - '(overwrite-mode overwrite-mode) - (list 'auto-fill-function - (propertize " Fill" - 'help-echo (purecopy - "mouse-2: turn off Autofill mode") - 'local-map (purecopy (make-mode-line-mouse-map - 'mouse-2 - #'mode-line-auto-fill-mode)))) - ;; not really a minor mode... - '(defining-kbd-macro " Def"))) - (defvar mode-line-buffer-identification-keymap nil "\ Keymap for what is displayed by `mode-line-buffer-identification'.") @@ -387,6 +359,28 @@ text properties for face, help-echo, and local-map to it." (define-key map [header-line down-mouse-3] 'mode-line-mode-menu-1) (setq mode-line-minor-mode-keymap map)) +(defvar minor-mode-alist nil "\ +Alist saying how to show minor modes in the mode line. +Each element looks like (VARIABLE STRING); +STRING is included in the mode line iff VARIABLE's value is non-nil. + +Actually, STRING need not be a string; any possible mode-line element +is okay. See `mode-line-format'.") +;; Don't use purecopy here--some people want to change these strings. +(setq minor-mode-alist + (list + (list 'abbrev-mode + (propertize " Abbrev" + 'help-echo (purecopy "mouse-3: minor mode menu") + 'local-map mode-line-minor-mode-keymap)) + '(overwrite-mode overwrite-mode) + (list 'auto-fill-function + (propertize " Fill" + 'help-echo (purecopy "mouse-3: minor mode menu") + 'local-map mode-line-minor-mode-keymap)) + ;; not really a minor mode... + '(defining-kbd-macro " Def"))) + ;; These variables are used by autoloadable packages. ;; They are defined here so that they do not get overridden ;; by the loading of those packages. -- 2.39.2