Fix interaction of line-dragging with mouse-1-click-follows-link.

* lisp/mouse.el (mouse-drag-line): Rewrite the track-mouse loop.
Implement the mouse-1-click-follows-link handling properly.

* lisp/info.el (Info-link-keymap): Use follow-link mechanism for
header-line links.

Fixes: debbugs:374

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/info.el b/lisp/info.el
index 9a62bc23fd0..0afb3f01339 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -4361,9 +4361,9 @@ the variable `Info-file-list-for-emacs'."
 
 (defvar Info-link-keymap
   (let ((keymap (make-sparse-keymap)))
-    (define-key keymap [header-line mouse-1] 'Info-mouse-follow-link)
+    (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-2] 'Info-mouse-follow-link)
-    (define-key keymap [header-line down-mouse-1] 'ignore)
     (define-key keymap [mouse-2] 'Info-mouse-follow-link)
     (define-key keymap [follow-link] 'mouse-face)
     keymap)