Re: master 1b71c995da: Avoid binding mouse-1 in xref when mouse-1 doesn't follow links

[Stefan Monnier]

> @@ -965,7 +965,9 @@ beginning of the line."
>  
>  (defvar xref--button-map
>    (let ((map (make-sparse-keymap)))
> -    (define-key map [mouse-1] #'xref-goto-xref)
> +    (when mouse-1-click-follows-link
> +      (define-key map [mouse-1] #'xref-goto-xref))
> +    (define-key map [follow-link] 'mouse-face)
>      (define-key map [mouse-2] #'xref-select-and-show-xref)
>      map))

Hmm... this won't adjust if `mouse-1-click-follows-link` is changed
later on.  Why do we need this `mouse-1` binding?


        Stefan