Mercurial > emacs

comparison lisp/bindings.el @ 90066:fb79180b618d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-78 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-719 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-732 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-733 Update from CVS: man/calc.texi: Fix some TeX definitions. * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-734 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-75 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-76 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-77 Update from CVS
author Miles Bader <miles@gnu.org>
date Tue, 14 Dec 2004 07:34:55 +0000
parents f2ebccfa87d4 1d2e96b9ab80
children 6d92d69fae33
comparison
equal deleted inserted replaced
90065:c26eb15cd14a 90066:fb79180b618d
446 ;; of the mode line.or header line. 446 ;; of the mode line.or header line.
447 ; 447 ;
448 (let ((map (make-sparse-keymap))) 448 (let ((map (make-sparse-keymap)))
449 ;; Bind down- events so that the global keymap won't ``shine 449 ;; Bind down- events so that the global keymap won't ``shine
450 ;; through''. 450 ;; through''.
451 (define-key map [mode-line down-mouse-1] 'ignore)
452 (define-key map [mode-line mouse-1] 'mode-line-unbury-buffer) 451 (define-key map [mode-line mouse-1] 'mode-line-unbury-buffer)
453 (define-key map [header-line down-mouse-1] 'ignore) 452 (define-key map [header-line down-mouse-1] 'ignore)
454 (define-key map [header-line mouse-1] 'mode-line-unbury-buffer) 453 (define-key map [header-line mouse-1] 'mode-line-unbury-buffer)
455 (define-key map [header-line down-mouse-3] 'ignore) 454 (define-key map [header-line down-mouse-3] 'ignore)
456 (define-key map [mode-line mouse-3] 'mode-line-bury-buffer) 455 (define-key map [mode-line mouse-3] 'mode-line-bury-buffer)