From 76693d123220d60c4465e92c4a80143c25bd85f4 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sun, 23 Nov 2003 00:27:27 +0000 Subject: [PATCH] Bind mouse-1 on left-fringe and right-fringe to mouse-set-point so that hscroll still works now that clicks on fringes generate specific mouse events. (mouse-set-point): Note that it now works in fringes and margins too due to new semantics of posn-point in fringes and margins. --- lisp/mouse.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/mouse.el b/lisp/mouse.el index ecf642caeed..9b80ccc0cf5 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -2204,6 +2204,10 @@ and selects that window." (global-set-key [double-mouse-1] 'mouse-set-point) (global-set-key [triple-mouse-1] 'mouse-set-point) +;; Clicking on the fringes causes hscrolling: +(global-set-key [left-fringe mouse-1] 'mouse-set-point) +(global-set-key [right-fringe mouse-1] 'mouse-set-point) + (global-set-key [mouse-2] 'mouse-yank-at-click) (global-set-key [mouse-3] 'mouse-save-then-kill) -- 2.39.2