([header-line mouse-1]): Bind to mouse-select-window.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7228162b28b312030e0343c0215ea6c0cfb8d1b1..7f18cf6e500059ef5323dd93e8529d209b7ec1a4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-09  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * mouse.el ([header-line mouse-1]): Bind to mouse-select-window.
+
 2000-10-09  Miles Bader  <miles@gnu.org>
 
        * toolbar/up_arrow.xpm: Flip to put highlight in correct place.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 4d5c3c495aeb336c0c75a7a62a0fd7ba09270da1..d5ae00fb872fa3857956aaf1be0288a68a21c68d 100644 (file)
--- 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)