# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1155785777 0
# Node ID 3fc22ce89bd1071b00dadafe83dce17b61e18b1f
# Parent  f60405031861f3ba0b271f25f211ef4ef113d900
(global-map): Allow yanking with mouse-2 at a spot whose
cursor would normally be drawn in the fringe.

diff -r f60405031861 -r 3fc22ce89bd1 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Aug 17 03:19:55 2006 +0000
+++ b/lisp/ChangeLog	Thu Aug 17 03:36:17 2006 +0000
@@ -1,5 +1,8 @@
 2006-08-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* mouse.el (global-map): Allow yanking with mouse-2 at a spot whose
+	cursor would normally be drawn in the fringe.
+
 	* font-lock.el (font-lock-extend-region-wholelines): Fix up typo.
 	Reported by Martin Rudalics <rudalics@gmx.at>.
 
diff -r f60405031861 -r 3fc22ce89bd1 lisp/mouse.el
--- a/lisp/mouse.el	Thu Aug 17 03:19:55 2006 +0000
+++ b/lisp/mouse.el	Thu Aug 17 03:36:17 2006 +0000
@@ -2398,6 +2398,8 @@
 (global-set-key [right-fringe mouse-1]	'mouse-set-point)
 
 (global-set-key [mouse-2]	'mouse-yank-at-click)
+;; Allow yanking also when the corresponding cursor is "in the fringe".
+(global-set-key [right-fringe mouse-2] [mouse-2])
 (global-set-key [mouse-3]	'mouse-save-then-kill)
 
 ;; By binding these to down-going events, we let the user use the up-going