bug#22434: 25.0.50; recentf pastes X clipboard upon opening

[Eli Zaretskii]

> From: Benjamin Riefenstahl <b.riefenstahl@turtle-trading.net>
> Date: Sun, 22 May 2016 19:14:50 +0200
> 
> <mouse-button> C-h l results in this log:
> 
>    <help-echo> <help-echo> <down-mouse-1> <mouse-1> <mouse-1>
>    [widget-button-click]
>    <mouse-2> [mouse-yank-primary]
>    C-h l [view-lossage]
> 
> >From where does the <mouse-2> come here?

See below:

>   @@ -112,7 +111,7 @@ mouse--down-1-maybe-follows-link
>                  timedout (not timedout))
>              nil
> 
>   -        (let ((event (read-event)))
>   +        (let ((event (read-key))) ;Use read-key so it works for 
> xterm-mouse-mode!
>              (if (eq (car-safe event) (if (eq mouse-1-click-follows-link 
> 'double)
>                                           'double-mouse-1 'mouse-1))
>                  ;; Turn the mouse-1 into a mouse-2 to follow links.
                      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Which continues:

              (let ((newup (if (eq mouse-1-click-follows-link 'double)
                                'double-mouse-2 'mouse-2)))