(global-map): Allow yanking with mouse-2 at a spot whose

cursor would normally be drawn in the fringe.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 98665776587caa55216fb72688dceb2d7d12a1bb..6ef271e8f48a2b4ac2136d1909ed48801a8d3c4b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/mouse.el b/lisp/mouse.el
index 043c78578db15453e1049765fb12763b201f4744..4e11b1d4c963e6201ac86f72d54b032d0a24e88f 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2398,6 +2398,8 @@ and selects that window."
 (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