mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Eli Zaretskii 2000-10-09 10:23:49 +00:00
parent 814299a771
commit 06a8c9f89b
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

5
lisp/mouse.el
View File

@ -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)