Mercurial > emacs

comparison lisp/bindings.el @ 27783:7d38d1e5d9bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(propertized-buffer-identification): New function.
author Gerd Moellmann <gerd@gnu.org>
date Sun, 20 Feb 2000 15:59:04 +0000
parents 248e0de1bae2
children 763e873d5257
comparison
equal deleted inserted replaced
27782:f53ecb062478 27783:7d38d1e5d9bb
280 (define-key map [header-line M-mouse-2] 'mode-line-unbury-buffer) 280 (define-key map [header-line M-mouse-2] 'mode-line-unbury-buffer)
281 (define-key map [mode-line mouse-2] 'bury-buffer) 281 (define-key map [mode-line mouse-2] 'bury-buffer)
282 (define-key map [header-line mouse-2] 'bury-buffer) 282 (define-key map [header-line mouse-2] 'bury-buffer)
283 (define-key map [mode-line down-mouse-3] 'mouse-buffer-menu) 283 (define-key map [mode-line down-mouse-3] 'mouse-buffer-menu)
284 (define-key map [header-line down-mouse-3] 'mouse-buffer-menu) 284 (define-key map [header-line down-mouse-3] 'mouse-buffer-menu)
285 (setq mode-line-buffer-identification-keymap map) 285 (setq mode-line-buffer-identification-keymap map))
286 (setq-default mode-line-buffer-identification 286
287 (list (propertize "%12b" 287 (defun propertized-buffer-identification (fmt)
288 'face '(:weight bold) 288 "Return a list suitable for `mode-line-buffer-identification'.
289 'help-echo (purecopy "mouse-1: other \ 289 FMT is a format specifier such as \"%12b\". This function adds
290 text properties for face, help-echo, and local-map to it."
291 (list (propertize fmt
292 'face '(:weight bold)
293 'help-echo (purecopy "mouse-1: other \
290 buffer, mouse-2: prev, M-mouse-2: next, mouse-3: buffer menu") 294 buffer, mouse-2: prev, M-mouse-2: next, mouse-3: buffer menu")
291 'local-map map)))) 295 'local-map mode-line-buffer-identification-keymap)))
296
297 (setq-default mode-line-buffer-identification
298 (propertized-buffer-identification "%12b"))
292 299
293 ;; Menu of minor modes. 300 ;; Menu of minor modes.
294 (let ((map (make-sparse-keymap))) 301 (let ((map (make-sparse-keymap)))
295 (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1) 302 (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1)
296 (define-key map [header-line down-mouse-3] 'mode-line-mode-menu-1) 303 (define-key map [header-line down-mouse-3] 'mode-line-mode-menu-1)