From: Juri Linkov <juri@linkov.net>
Date: Mon, 24 Jan 2022 18:52:59 +0000 (+0200)
Subject: * lisp/info.el (Info-link-keymap): Fix repetitive clicks on the header line.
X-Git-Tag: emacs-29.0.90~2779
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b93902e22bb517d0992ae09838935647e3594a4b;p=emacs.git

* lisp/info.el (Info-link-keymap): Fix repetitive clicks on the header line.

Rebind [header-line mouse-1] from mouse-select-window to
Info-mouse-follow-link.  It selects the window anyway,
but also allows repetitively clicking on the Next button
on the Info header line (bug#53170).
---

diff --git a/lisp/info.el b/lisp/info.el
index f4f0f9790cd..bb8cd0d312f 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -4693,7 +4693,7 @@ the variable `Info-file-list-for-emacs'."
 (defvar Info-link-keymap
   (let ((keymap (make-sparse-keymap)))
     (define-key keymap [header-line down-mouse-1] 'mouse-drag-header-line)
-    (define-key keymap [header-line mouse-1] 'mouse-select-window)
+    (define-key keymap [header-line mouse-1] 'Info-mouse-follow-link)
     (define-key keymap [header-line mouse-2] 'Info-mouse-follow-link)
     (define-key keymap [mouse-2] 'Info-mouse-follow-link)
     (define-key keymap [follow-link] 'mouse-face)