256 |
(defvar mode-line-modes nil |
(defvar mode-line-modes nil |
257 |
"Mode-line control for displaying major and minor modes.") |
"Mode-line control for displaying major and minor modes.") |
258 |
|
|
259 |
(defvar mode-line-major-mode-keymap nil "\ |
(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) "\ |
264 |
Keymap to display on major mode.") |
Keymap to display on major mode.") |
265 |
|
|
266 |
(defvar mode-line-minor-mode-keymap nil "\ |
(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) "\ |
272 |
Keymap to display on minor modes.") |
Keymap to display on minor modes.") |
273 |
|
|
|
(let ((map (make-sparse-keymap))) |
|
|
(define-key map [mode-line mouse-2] 'describe-mode) |
|
|
(setq mode-line-major-mode-keymap map)) |
|
|
|
|
|
;; Menu of minor modes. |
|
|
(let ((map (make-sparse-keymap))) |
|
|
(define-key map [mode-line mouse-2] 'mode-line-minor-mode-help) |
|
|
(define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1) |
|
|
(define-key map [header-line down-mouse-3] 'mode-line-mode-menu-1) |
|
|
(setq mode-line-minor-mode-keymap map)) |
|
|
|
|
274 |
(let* ((help-echo |
(let* ((help-echo |
275 |
;; The multi-line message doesn't work terribly well on the |
;; The multi-line message doesn't work terribly well on the |
276 |
;; bottom mode line... Better ideas? |
;; bottom mode line... Better ideas? |
300 |
(propertize "%[(" 'help-echo help-echo) |
(propertize "%[(" 'help-echo help-echo) |
301 |
`(:propertize ("" mode-name) |
`(:propertize ("" mode-name) |
302 |
help-echo "mouse-2: help for current major mode" |
help-echo "mouse-2: help for current major mode" |
303 |
local-map ,mode-line-major-mode-keymap) |
local-map ,mode-line-major-mode-keymap |
304 |
|
mouse-face bold) |
305 |
`(:propertize ("" mode-line-process)) |
`(:propertize ("" mode-line-process)) |
306 |
`(:propertize ("" minor-mode-alist) |
`(:propertize ("" minor-mode-alist) |
307 |
help-echo "mouse-2: help for minor modes, mouse-3: minor mode menu" |
help-echo "mouse-2: help for minor modes, mouse-3: minor mode menu" |