Mercurial > emacs
changeset 72798:6e061fdbf037
(mode-line-buffer-identification-keymap):
Move initialization into declaration.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 11 Sep 2006 07:11:21 +0000 |
| parents | 1804621e5f1e |
| children | ff69721bef4a |
| files | lisp/ChangeLog lisp/bindings.el |
| diffstat | 2 files changed, 21 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Sep 11 02:39:16 2006 +0000 +++ b/lisp/ChangeLog Mon Sep 11 07:11:21 2006 +0000 @@ -1,3 +1,8 @@ +2006-09-11 Stefan Monnier <monnier@iro.umontreal.ca> + + * bindings.el (mode-line-buffer-identification-keymap): + Move initialization into declaration. + 2006-09-10 Kim F. Storm <storm@cua.dk> * ido.el (ido-edit-input, ido-complete, ido-take-first-match) @@ -30,8 +35,8 @@ 2006-09-09 Richard Stallman <rms@gnu.org> - * textmodes/conf-mode.el (conf-space-mode): Use - hack-local-variables-hook instead of calling hack-local-variables. + * textmodes/conf-mode.el (conf-space-mode): + Use hack-local-variables-hook instead of calling hack-local-variables. (conf-space-keywords-override): New variable. (conf-space-mode-internal): New subroutine. Reinit Font Lock mode. (conf-space-mode): Always make conf-space-keywords and
--- a/lisp/bindings.el Mon Sep 11 02:39:16 2006 +0000 +++ b/lisp/bindings.el Mon Sep 11 07:11:21 2006 +0000 @@ -337,24 +337,22 @@ (put 'mode-line-position 'standard-value (list `(quote ,standard-mode-line-position)))) -(defvar mode-line-buffer-identification-keymap nil "\ +(defvar mode-line-buffer-identification-keymap + ;; Add menu of buffer operations to the buffer identification part + ;; of the mode line.or header line. + (let ((map (make-sparse-keymap))) + ;; Bind down- events so that the global keymap won't ``shine + ;; through''. + (define-key map [mode-line mouse-1] 'mode-line-previous-buffer) + (define-key map [header-line down-mouse-1] 'ignore) + (define-key map [header-line mouse-1] 'mode-line-previous-buffer) + (define-key map [header-line down-mouse-3] 'ignore) + (define-key map [mode-line mouse-3] 'mode-line-next-buffer) + (define-key map [header-line down-mouse-3] 'ignore) + (define-key map [header-line mouse-3] 'mode-line-next-buffer) + map) "\ Keymap for what is displayed by `mode-line-buffer-identification'.") -;; Add menu of buffer operations to the buffer identification part -;; of the mode line.or header line. -; -(let ((map (make-sparse-keymap))) - ;; Bind down- events so that the global keymap won't ``shine - ;; through''. - (define-key map [mode-line mouse-1] 'mode-line-previous-buffer) - (define-key map [header-line down-mouse-1] 'ignore) - (define-key map [header-line mouse-1] 'mode-line-previous-buffer) - (define-key map [header-line down-mouse-3] 'ignore) - (define-key map [mode-line mouse-3] 'mode-line-next-buffer) - (define-key map [header-line down-mouse-3] 'ignore) - (define-key map [header-line mouse-3] 'mode-line-next-buffer) - (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