Mercurial > emacs

changeset 38757:75666bd5d498

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(minor-mode-alist): Use mode-line-minor-mode-keymap for the minor mode name.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 09 Aug 2001 14:51:20 +0000
parents aa185d4220dd
children a86b8b3e96fd
files lisp/bindings.el
diffstat 1 files changed, 22 insertions(+), 28 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/bindings.el	Thu Aug 09 14:21:12 2001 +0000
+++ b/lisp/bindings.el	Thu Aug 09 14:51:20 2001 +0000
@@ -232,34 +232,6 @@
      `(-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 @@
   (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.