From: Eli Zaretskii Date: Mon, 9 Oct 2000 10:23:49 +0000 (+0000) Subject: ([header-line mouse-1]): Bind to mouse-select-window. X-Git-Tag: emacs-pretest-21.0.90~1007 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=06a8c9f89b2f6bb9b066456820f4477d3aa1a272;p=emacs.git ([header-line mouse-1]): Bind to mouse-select-window. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7228162b28b..7f18cf6e500 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-10-09 Eli Zaretskii + + * mouse.el ([header-line mouse-1]): Bind to mouse-select-window. + 2000-10-09 Miles Bader * toolbar/up_arrow.xpm: Flip to put highlight in correct place. diff --git a/lisp/mouse.el b/lisp/mouse.el index 4d5c3c495ae..d5ae00fb872 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -2156,10 +2156,15 @@ and selects that window." ;; Replaced with dragging mouse-1 ;; (global-set-key [S-mouse-1] 'mouse-set-mark) +;; Binding mouse-1 to mouse-select-window when on mode-, header-, or +;; vertical-line prevents Emacs from signaling an error when the mouse +;; button is released after dragging these lines, on non-toolkit +;; versions. (global-set-key [mode-line mouse-1] 'mouse-select-window) (global-set-key [mode-line drag-mouse-1] 'mouse-select-window) (global-set-key [mode-line down-mouse-1] 'mouse-drag-mode-line) (global-set-key [header-line down-mouse-1] 'mouse-drag-header-line) +(global-set-key [header-line mouse-1] 'mouse-select-window) (global-set-key [mode-line mouse-2] 'mouse-delete-other-windows) (global-set-key [mode-line mouse-3] 'mouse-delete-window) (global-set-key [mode-line C-mouse-2] 'mouse-split-window-horizontally)