changeset 72427:3fc22ce89bd1

(global-map): Allow yanking with mouse-2 at a spot whose cursor would normally be drawn in the fringe.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 17 Aug 2006 03:36:17 +0000
parents f60405031861
children 608323e2c0e3
files lisp/ChangeLog lisp/mouse.el
diffstat 2 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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>.
 
--- 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