Re: mouse-yank-at-click (with mouse-2) in fringe

[Chong Yidong]

Stefan Monnier <address@hidden> writes:

>> ! (global-set-key [right-fringe mouse-2] [mouse-2])
>> --- 2416,2422 ----
>> ! (global-set-key [right-fringe mouse-2] 'mouse-yank-at-click)
>
> Hmm... that's nasty.
> So we can't redirect a mouse event like that: the event's parameters
> get lost.  That sucks.
>
> It seems what we really want is to automatically rewrite
> [left-fringe <foo>] to [<foo>] if there is no binding for
> [left-fringe <foo>], just like we do for "A => a", "double-mouse-2
> => mouse-2", ...

It would be nice, but is it really necessary?  After all, in mouse.el
we already do

 (global-set-key [left-fringe mouse-1]  'mouse-set-point)
 (global-set-key [right-fringe mouse-1] 'mouse-set-point)