# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1069547247 0
# Node ID 50717ae10f39fa344e390507b5a281b8a8291d35
# Parent  20c6299bd4dfcbeb814ed9d00aaf48ddb5417206
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 -r 20c6299bd4df -r 50717ae10f39 lisp/mouse.el
--- a/lisp/mouse.el	Sun Nov 23 00:27:03 2003 +0000
+++ b/lisp/mouse.el	Sun Nov 23 00:27:27 2003 +0000
@@ -2204,6 +2204,10 @@
 (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)