From: Kim F. Storm Date: Sun, 23 Nov 2003 00:27:27 +0000 (+0000) Subject: Bind mouse-1 on left-fringe and right-fringe to mouse-set-point so X-Git-Tag: ttn-vms-21-2-B4~8297 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76693d123220d60c4465e92c4a80143c25bd85f4;p=emacs.git 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. --- 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)