258 |
'mouse-2 #'mode-line-widen)) |
'mouse-2 #'mode-line-widen)) |
259 |
(propertize ")%]--" 'help-echo help-echo))) |
(propertize ")%]--" 'help-echo help-echo))) |
260 |
|
|
261 |
(setq-default mode-line-position |
(setq-default mode-line-position |
262 |
`((line-number-mode (,(propertize "L%l" 'help-echo help-echo) ,dashes)) |
`((line-number-mode (,(propertize "L%l" 'help-echo help-echo) ,dashes)) |
263 |
(column-number-mode (,(propertize "C%c" 'help-echo help-echo) ,dashes)) |
(column-number-mode (,(propertize "C%c" 'help-echo help-echo) ,dashes)) |
264 |
(-3 . ,(propertize "%p" 'help-echo help-echo))))) |
(-3 . ,(propertize "%p" 'help-echo help-echo))))) |
272 |
(defvar mode-line-mode-menu-keymap nil "\ |
(defvar mode-line-mode-menu-keymap nil "\ |
273 |
Keymap for mode operations menu in the mode line.") |
Keymap for mode operations menu in the mode line.") |
274 |
|
|
275 |
|
(defun last-buffer () " |
276 |
|
Return the last non-hidden buffer in the buffer list." |
277 |
|
(let ((list (reverse (buffer-list)))) |
278 |
|
(while (eq (aref (buffer-name (car list)) 0) ? ) |
279 |
|
(setq list (cdr list))) |
280 |
|
(car list))) |
281 |
|
|
282 |
|
(defun unbury-buffer () " |
283 |
|
Switch to the `last-buffer'." |
284 |
|
(interactive) |
285 |
|
(switch-to-buffer (last-buffer))) |
286 |
|
|
287 |
(defun mode-line-unbury-buffer (event) "\ |
(defun mode-line-unbury-buffer (event) "\ |
288 |
Switch to the last buffer in the buffer list that is not hidden." |
Call `unbury-buffer' in this window." |
289 |
(interactive "e") |
(interactive "e") |
290 |
(save-selected-window |
(save-selected-window |
291 |
(select-window (posn-window (event-start event))) |
(select-window (posn-window (event-start event))) |
292 |
(let ((list (reverse (buffer-list)))) |
(unbury-buffer))) |
|
(while (eq (aref (buffer-name (car list)) 0) ? ) |
|
|
(setq list (cdr list))) |
|
|
(switch-to-buffer (car list))))) |
|
293 |
|
|
294 |
(defun mode-line-bury-buffer (event) "\ |
(defun mode-line-bury-buffer (event) "\ |
295 |
Like bury-buffer, but temporarily select EVENT's window." |
Like bury-buffer, but temporarily select EVENT's window." |