From b93902e22bb517d0992ae09838935647e3594a4b Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 24 Jan 2022 20:52:59 +0200 Subject: [PATCH] * 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). --- lisp/info.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.2