Mercurial > emacs
comparison lisp/bindings.el @ 90601:a1a25ac6c88a
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 427-436)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 134-136)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-110
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 14 Sep 2006 09:24:00 +0000 |
| parents | 7f3f771c85fa 6e061fdbf037 |
| children | b5c13d1564a9 |
comparison
equal
deleted
inserted
replaced
| 90600:84dd84b43e1b | 90601:a1a25ac6c88a |
|---|---|
| 335 | 335 |
| 336 (setq-default mode-line-position standard-mode-line-position) | 336 (setq-default mode-line-position standard-mode-line-position) |
| 337 (put 'mode-line-position 'standard-value | 337 (put 'mode-line-position 'standard-value |
| 338 (list `(quote ,standard-mode-line-position)))) | 338 (list `(quote ,standard-mode-line-position)))) |
| 339 | 339 |
| 340 (defvar mode-line-buffer-identification-keymap nil "\ | 340 (defvar mode-line-buffer-identification-keymap |
| 341 ;; Add menu of buffer operations to the buffer identification part | |
| 342 ;; of the mode line.or header line. | |
| 343 (let ((map (make-sparse-keymap))) | |
| 344 ;; Bind down- events so that the global keymap won't ``shine | |
| 345 ;; through''. | |
| 346 (define-key map [mode-line mouse-1] 'mode-line-previous-buffer) | |
| 347 (define-key map [header-line down-mouse-1] 'ignore) | |
| 348 (define-key map [header-line mouse-1] 'mode-line-previous-buffer) | |
| 349 (define-key map [header-line down-mouse-3] 'ignore) | |
| 350 (define-key map [mode-line mouse-3] 'mode-line-next-buffer) | |
| 351 (define-key map [header-line down-mouse-3] 'ignore) | |
| 352 (define-key map [header-line mouse-3] 'mode-line-next-buffer) | |
| 353 map) "\ | |
| 341 Keymap for what is displayed by `mode-line-buffer-identification'.") | 354 Keymap for what is displayed by `mode-line-buffer-identification'.") |
| 342 | |
| 343 ;; Add menu of buffer operations to the buffer identification part | |
| 344 ;; of the mode line.or header line. | |
| 345 ; | |
| 346 (let ((map (make-sparse-keymap))) | |
| 347 ;; Bind down- events so that the global keymap won't ``shine | |
| 348 ;; through''. | |
| 349 (define-key map [mode-line mouse-1] 'mode-line-previous-buffer) | |
| 350 (define-key map [header-line down-mouse-1] 'ignore) | |
| 351 (define-key map [header-line mouse-1] 'mode-line-previous-buffer) | |
| 352 (define-key map [header-line down-mouse-3] 'ignore) | |
| 353 (define-key map [mode-line mouse-3] 'mode-line-next-buffer) | |
| 354 (define-key map [header-line down-mouse-3] 'ignore) | |
| 355 (define-key map [header-line mouse-3] 'mode-line-next-buffer) | |
| 356 (setq mode-line-buffer-identification-keymap map)) | |
| 357 | 355 |
| 358 (defun propertized-buffer-identification (fmt) | 356 (defun propertized-buffer-identification (fmt) |
| 359 "Return a list suitable for `mode-line-buffer-identification'. | 357 "Return a list suitable for `mode-line-buffer-identification'. |
| 360 FMT is a format specifier such as \"%12b\". This function adds | 358 FMT is a format specifier such as \"%12b\". This function adds |
| 361 text properties for face, help-echo, and local-map to it." | 359 text properties for face, help-echo, and local-map to it." |