minibuffer.el: Fix completions header-line mouse clicks

See bug#75219

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 2054dd86ed87cb4b33e878c857a10c040d48e4b5..2ed4d3d03eb92c36fda51708f6a0574d7011507c 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -2281,7 +2281,8 @@ completions."
 (defvar-keymap completions-header-order-map
   :doc "Keymap for modifying completions sorting with the mouse."
   (key-description [header-line mouse-2]) #'completions-header-sort
-  (key-description [header-line mouse-3]) #'completions-header-reverse)
+  (key-description [header-line mouse-3]) #'completions-header-reverse
+  "<follow-link>" 'mouse-face)
 
 (defvar completions-header-order
   '(""
@@ -2326,6 +2327,7 @@ completions."
                                                    'completion-reference-buffer
                                                    (window-buffer (posn-window (event-end e))))
                                                 (minibuffer-negate-completion-predicate))))
+                                (define-key map [header-line follow-link] 'mouse-face)
                                 map))))
             (concat
              sep
@@ -2366,6 +2368,7 @@ completions."
                                       'completion-reference-buffer
                                       (window-buffer (posn-window (event-end e))))
                                    (minibuffer-toggle-completion-ignore-case))))
+                   (define-key map [header-line follow-link] 'mouse-face)
                    map)))
 
 (defvar completions-header-exceptional-candidates
@@ -2382,6 +2385,7 @@ completions."
                                       'completion-reference-buffer
                                       (window-buffer (posn-window (event-end e))))
                                    (minibuffer-toggle-exceptional-candidates))))
+                   (define-key map [header-line follow-link] 'mouse-face)
                    map)))
 
 (defvar completions-header-annotations
@@ -2398,6 +2402,7 @@ completions."
                                       'completion-reference-buffer
                                       (window-buffer (posn-window (event-end e))))
                                    (minibuffer-toggle-completions-annotations))))
+                   (define-key map [header-line follow-link] 'mouse-face)
                    map)))
 
 (defvar completions-header-extra nil)
@@ -2698,6 +2703,7 @@ and with BASE-SIZE appended as the last element."
                                               'completion-reference-buffer
                                               (window-buffer (posn-window (event-end e))))
                                            (minibuffer-widen-completions desc))))
+                           (define-key map [header-line follow-link] 'mouse-face)
                            map)))
                       descs ", ")))))