diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-04-30 01:36:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-04-30 01:36:19 +0000 |
| commit | d33c1fcea2d4ccbc45ceedc430337971ab087b9c (patch) | |
| tree | 038200026bc9b4d799de117d478eea3281554e9e | |
| parent | af0efc3fd4041fc433d4e2d8cccf15aa35d4109a (diff) | |
| download | emacs-d33c1fcea2d4ccbc45ceedc430337971ab087b9c.tar.gz | |
(mode-line-major-mode-keymap): Undo last change.
(mode-line-format): Further help-echo doc fixes.
| -rw-r--r-- | lisp/bindings.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index c2440d7f9a4..a2449798588 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -267,8 +267,9 @@ buffer size, the line number and the column number.") (defvar mode-line-major-mode-keymap (let ((map (make-sparse-keymap))) + (define-key map [mode-line down-mouse-1] 'mouse-major-mode-menu) (define-key map [mode-line mouse-2] 'describe-mode) - (define-key map [mode-line down-mouse-3] 'mouse-major-mode-menu) + (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1) map) "\ Keymap to display on major mode.") @@ -309,13 +310,13 @@ Keymap to display on minor modes.") (list (propertize "%[(" 'help-echo help-echo) `(:propertize ("" mode-name) - help-echo "mouse-2: help for major mode, mouse-3: major mode menu" + help-echo "mouse-1: major mode, mouse-2: major mode help, mouse-3: toggle minor modes" mouse-face mode-line-highlight local-map ,mode-line-major-mode-keymap) '("" mode-line-process) `(:propertize ("" minor-mode-alist) mouse-face mode-line-highlight - help-echo "mouse-2: help for minor mode, mouse-3: toggle minor modes" + help-echo "mouse-2: minor mode help, mouse-3: toggle minor modes" local-map ,mode-line-minor-mode-keymap) (propertize "%n" 'help-echo "mouse-2: widen" 'mouse-face 'mode-line-highlight |