Mercurial > emacs
changeset 27783:7d38d1e5d9bb
(propertized-buffer-identification): New function.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sun, 20 Feb 2000 15:59:04 +0000 |
| parents | f53ecb062478 |
| children | c27b002e4491 |
| files | lisp/bindings.el |
| diffstat | 1 files changed, 13 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/bindings.el Sun Feb 20 15:55:38 2000 +0000 +++ b/lisp/bindings.el Sun Feb 20 15:59:04 2000 +0000 @@ -282,13 +282,20 @@ (define-key map [header-line mouse-2] 'bury-buffer) (define-key map [mode-line down-mouse-3] 'mouse-buffer-menu) (define-key map [header-line down-mouse-3] 'mouse-buffer-menu) - (setq mode-line-buffer-identification-keymap map) - (setq-default mode-line-buffer-identification - (list (propertize "%12b" - 'face '(:weight bold) - 'help-echo (purecopy "mouse-1: other \ + (setq mode-line-buffer-identification-keymap map)) + +(defun propertized-buffer-identification (fmt) + "Return a list suitable for `mode-line-buffer-identification'. +FMT is a format specifier such as \"%12b\". This function adds +text properties for face, help-echo, and local-map to it." + (list (propertize fmt + 'face '(:weight bold) + 'help-echo (purecopy "mouse-1: other \ buffer, mouse-2: prev, M-mouse-2: next, mouse-3: buffer menu") - 'local-map map)))) + 'local-map mode-line-buffer-identification-keymap))) + +(setq-default mode-line-buffer-identification + (propertized-buffer-identification "%12b")) ;; Menu of minor modes. (let ((map (make-sparse-keymap)))