Mercurial > emacs
comparison lisp/bindings.el @ 70288:45b7cad845ee
(mode-line-major-mode-keymap): Undo last change.
(mode-line-format): Further help-echo doc fixes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 30 Apr 2006 01:36:19 +0000 |
| parents | b0649e01002b |
| children | 61daeebc775a d9f8d2a65d18 2ecafc6d5db7 |
comparison
equal
deleted
inserted
replaced
| 70287:5aeb9551e8d5 | 70288:45b7cad845ee |
|---|---|
| 265 (defvar mode-line-modes nil | 265 (defvar mode-line-modes nil |
| 266 "Mode-line control for displaying major and minor modes.") | 266 "Mode-line control for displaying major and minor modes.") |
| 267 | 267 |
| 268 (defvar mode-line-major-mode-keymap | 268 (defvar mode-line-major-mode-keymap |
| 269 (let ((map (make-sparse-keymap))) | 269 (let ((map (make-sparse-keymap))) |
| 270 (define-key map [mode-line down-mouse-1] 'mouse-major-mode-menu) | |
| 270 (define-key map [mode-line mouse-2] 'describe-mode) | 271 (define-key map [mode-line mouse-2] 'describe-mode) |
| 271 (define-key map [mode-line down-mouse-3] 'mouse-major-mode-menu) | 272 (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1) |
| 272 map) "\ | 273 map) "\ |
| 273 Keymap to display on major mode.") | 274 Keymap to display on major mode.") |
| 274 | 275 |
| 275 (defvar mode-line-minor-mode-keymap | 276 (defvar mode-line-minor-mode-keymap |
| 276 (let ((map (make-sparse-keymap))) | 277 (let ((map (make-sparse-keymap))) |
| 307 | 308 |
| 308 (setq-default mode-line-modes | 309 (setq-default mode-line-modes |
| 309 (list | 310 (list |
| 310 (propertize "%[(" 'help-echo help-echo) | 311 (propertize "%[(" 'help-echo help-echo) |
| 311 `(:propertize ("" mode-name) | 312 `(:propertize ("" mode-name) |
| 312 help-echo "mouse-2: help for major mode, mouse-3: major mode menu" | 313 help-echo "mouse-1: major mode, mouse-2: major mode help, mouse-3: toggle minor modes" |
| 313 mouse-face mode-line-highlight | 314 mouse-face mode-line-highlight |
| 314 local-map ,mode-line-major-mode-keymap) | 315 local-map ,mode-line-major-mode-keymap) |
| 315 '("" mode-line-process) | 316 '("" mode-line-process) |
| 316 `(:propertize ("" minor-mode-alist) | 317 `(:propertize ("" minor-mode-alist) |
| 317 mouse-face mode-line-highlight | 318 mouse-face mode-line-highlight |
| 318 help-echo "mouse-2: help for minor mode, mouse-3: toggle minor modes" | 319 help-echo "mouse-2: minor mode help, mouse-3: toggle minor modes" |
| 319 local-map ,mode-line-minor-mode-keymap) | 320 local-map ,mode-line-minor-mode-keymap) |
| 320 (propertize "%n" 'help-echo "mouse-2: widen" | 321 (propertize "%n" 'help-echo "mouse-2: widen" |
| 321 'mouse-face 'mode-line-highlight | 322 'mouse-face 'mode-line-highlight |
| 322 'local-map (make-mode-line-mouse-map | 323 'local-map (make-mode-line-mouse-map |
| 323 'mouse-2 #'mode-line-widen)) | 324 'mouse-2 #'mode-line-widen)) |