448 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
449 |
;; Bind down- events so that the global keymap won't ``shine |
;; Bind down- events so that the global keymap won't ``shine |
450 |
;; through''. |
;; through''. |
|
(define-key map [mode-line down-mouse-1] 'ignore) |
|
451 |
(define-key map [mode-line mouse-1] 'mode-line-unbury-buffer) |
(define-key map [mode-line mouse-1] 'mode-line-unbury-buffer) |
452 |
(define-key map [header-line down-mouse-1] 'ignore) |
(define-key map [header-line down-mouse-1] 'ignore) |
453 |
(define-key map [header-line mouse-1] 'mode-line-unbury-buffer) |
(define-key map [header-line mouse-1] 'mode-line-unbury-buffer) |