procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mode-line-buffer-identification-keymap):

Browse source 
Move initialization into declaration.
This commit is contained in:
Stefan Monnier 2006-09-11 07:11:21 +00:00
parent 3250aca208
commit a8b7149d7e
2 changed files with 21 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -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

30
lisp/bindings.el
View file

@ -337,24 +337,22 @@ Keymap to display on minor modes.")
(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