[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/bindings.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/bindings.el |
Date: |
Sun, 30 Apr 2006 01:36:19 +0000 |
Index: emacs/lisp/bindings.el
diff -u emacs/lisp/bindings.el:1.158 emacs/lisp/bindings.el:1.159
--- emacs/lisp/bindings.el:1.158 Sun Apr 30 01:31:28 2006
+++ emacs/lisp/bindings.el Sun Apr 30 01:36:19 2006
@@ -267,8 +267,9 @@
(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 @@
(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