From 06a8c9f89b2f6bb9b066456820f4477d3aa1a272 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 9 Oct 2000 10:23:49 +0000 Subject: [PATCH] ([header-line mouse-1]): Bind to mouse-select-window. --- lisp/ChangeLog | 4 ++++ lisp/mouse.el | 5 +++++ 2 files changed, 9 insertions(+) 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) -- 2.39.5