Avoid binding mouse-1 in xref when mouse-1 doesn't follow links

* lisp/progmodes/xref.el (xref--button-map): Avoid binding mouse-1
when `mouse-1-click-follows-link' is nil (bug#35353).

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 43ab703da226d58d20e5c45b820cadf550b6410a..6fa9a5c8d69c41b362aa76f3ee36cca4b61aae77 100644 (file)
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -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))