Mercurial > emacs
comparison lisp/bindings.el @ 50565:cd863af50ea1
* help.el (describe-minor-mode): New function implementation.
Accept both minor mode string and minor mode indicator.
(describe-minor-mode-completion-table-for-indicator)
(describe-minor-mode-completion-table-for-symbol): New functions.
minor-mode-list is used here.
(describe-minor-mode-from-symbol): renamed
from (old) describe-minor-mode. Use
describe-minor-mode-completion-table-for-symbol.
Don't use eval. Just use symbol-name.
(describe-minor-mode-from-indicator): Document is updated.
Use `format-mode-line'. Use
describe-minor-mode-from-symbol instead of
describe-minor-mode.
Use describe-minor-mode-completion-table-for-indicator.
(expand-minor-mode-indicator-object): removed.
(lookup-minor-mode-from-indicator): remove the fist white
space from both indicator and anindicator before comparing them.
* bindings.el (mode-line-major-mode-keymap)
(mode-line-minor-mode-keymap): defined keys for the maps
here in `defvar'.
| author | Masatake YAMATO <jet@gyve.org> |
|---|---|
| date | Sat, 12 Apr 2003 17:28:24 +0000 |
| parents | ff982d8c0772 |
| children | e5f72e7c4f4c |
comparison
equal
deleted
inserted
replaced
| 50564:e634b5a332d1 | 50565:cd863af50ea1 |
|---|---|
| 254 "Mode-line control for displaying line number, column number and fraction.") | 254 "Mode-line control for displaying line number, column number and fraction.") |
| 255 | 255 |
| 256 (defvar mode-line-modes nil | 256 (defvar mode-line-modes nil |
| 257 "Mode-line control for displaying major and minor modes.") | 257 "Mode-line control for displaying major and minor modes.") |
| 258 | 258 |
| 259 (defvar mode-line-major-mode-keymap nil "\ | 259 (defvar mode-line-major-mode-keymap |
| 260 (let ((map (make-sparse-keymap))) | |
| 261 (define-key map [mode-line mouse-2] 'describe-mode) | |
| 262 (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1) | |
| 263 map) "\ | |
| 260 Keymap to display on major mode.") | 264 Keymap to display on major mode.") |
| 261 | 265 |
| 262 (defvar mode-line-minor-mode-keymap nil "\ | 266 (defvar mode-line-minor-mode-keymap |
| 267 (let ((map (make-sparse-keymap))) | |
| 268 (define-key map [mode-line mouse-2] 'mode-line-minor-mode-help) | |
| 269 (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1) | |
| 270 (define-key map [header-line down-mouse-3] 'mode-line-mode-menu-1) | |
| 271 map) "\ | |
| 263 Keymap to display on minor modes.") | 272 Keymap to display on minor modes.") |
| 264 | |
| 265 (let ((map (make-sparse-keymap))) | |
| 266 (define-key map [mode-line mouse-2] 'describe-mode) | |
| 267 (setq mode-line-major-mode-keymap map)) | |
| 268 | |
| 269 ;; Menu of minor modes. | |
| 270 (let ((map (make-sparse-keymap))) | |
| 271 (define-key map [mode-line mouse-2] 'mode-line-minor-mode-help) | |
| 272 (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1) | |
| 273 (define-key map [header-line down-mouse-3] 'mode-line-mode-menu-1) | |
| 274 (setq mode-line-minor-mode-keymap map)) | |
| 275 | 273 |
| 276 (let* ((help-echo | 274 (let* ((help-echo |
| 277 ;; The multi-line message doesn't work terribly well on the | 275 ;; The multi-line message doesn't work terribly well on the |
| 278 ;; bottom mode line... Better ideas? | 276 ;; bottom mode line... Better ideas? |
| 279 ;; "\ | 277 ;; "\ |
| 300 (setq-default mode-line-modes | 298 (setq-default mode-line-modes |
| 301 (list | 299 (list |
| 302 (propertize "%[(" 'help-echo help-echo) | 300 (propertize "%[(" 'help-echo help-echo) |
| 303 `(:propertize ("" mode-name) | 301 `(:propertize ("" mode-name) |
| 304 help-echo "mouse-2: help for current major mode" | 302 help-echo "mouse-2: help for current major mode" |
| 305 local-map ,mode-line-major-mode-keymap) | 303 local-map ,mode-line-major-mode-keymap |
| 304 mouse-face bold) | |
| 306 `(:propertize ("" mode-line-process)) | 305 `(:propertize ("" mode-line-process)) |
| 307 `(:propertize ("" minor-mode-alist) | 306 `(:propertize ("" minor-mode-alist) |
| 308 help-echo "mouse-2: help for minor modes, mouse-3: minor mode menu" | 307 help-echo "mouse-2: help for minor modes, mouse-3: minor mode menu" |
| 309 local-map ,mode-line-minor-mode-keymap) | 308 local-map ,mode-line-minor-mode-keymap) |
| 310 (propertize "%n" 'help-echo "mouse-2: widen" | 309 (propertize "%n" 'help-echo "mouse-2: widen" |