249 |
'mode-line-buffer-identification |
'mode-line-buffer-identification |
250 |
(propertize " " 'help-echo help-echo) |
(propertize " " 'help-echo help-echo) |
251 |
'global-mode-string |
'global-mode-string |
252 |
|
'mode-line-position |
253 |
|
'(vc-mode vc-mode) |
254 |
|
(propertize " " 'help-echo help-echo) |
255 |
'mode-line-modes |
'mode-line-modes |
256 |
`(which-func-mode ("" which-func-format ,dashes)) |
`(which-func-mode ("" which-func-format ,dashes)) |
|
'mode-line-position |
|
257 |
(propertize "-%-" 'help-echo help-echo))) |
(propertize "-%-" 'help-echo help-echo))) |
258 |
|
|
259 |
(setq-default mode-line-modes |
(setq-default mode-line-modes |
260 |
(list |
(list |
261 |
(propertize " %[(" 'help-echo help-echo) |
(propertize "%[(" 'help-echo help-echo) |
262 |
`(:propertize ("" mode-name mode-line-process minor-mode-alist) |
`(:propertize ("" mode-name mode-line-process minor-mode-alist) |
263 |
help-echo "mouse-3: minor mode menu" |
help-echo "mouse-3: minor mode menu" |
264 |
local-map ,mode-line-minor-mode-keymap) |
local-map ,mode-line-minor-mode-keymap) |
268 |
(propertize ")%]--" 'help-echo help-echo))) |
(propertize ")%]--" 'help-echo help-echo))) |
269 |
|
|
270 |
(setq-default mode-line-position |
(setq-default mode-line-position |
271 |
`((line-number-mode (,(propertize "L%l" 'help-echo help-echo) ,dashes)) |
`((line-number-mode (,(propertize "L%l " 'help-echo help-echo))) |
272 |
(column-number-mode (,(propertize "C%c" 'help-echo help-echo) ,dashes)) |
(column-number-mode (,(propertize "C%c " 'help-echo help-echo))) |
273 |
(-3 . ,(propertize "%p" 'help-echo help-echo))))) |
(-3 . ,(propertize "%p" 'help-echo help-echo))))) |
274 |
|
|
275 |
(defvar mode-line-buffer-identification-keymap nil "\ |
(defvar mode-line-buffer-identification-keymap nil "\ |