* lisp/mouse.el: Fix mouse-1-clock-follows-mouse = double

This functionality was broken by commit 3d5e31eceb9dc1fb62b2b2,
the problem being that we end up considering as distinct the events
`down-double-mouse-1` and `double-down-mouse-1`.

Reported by Eyal Soha <eyalsoha@gmail.com>

(mouse--click-1-maybe-follows-link): Make sure the last element of
the list passed to `event-convert-list` is indeed a "basic" event.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 72ad77c63444e624bfe9aa00b42f9cf9c97cc724..6b8e65c4a29924a5ac92ec51b5a63a72cf2a414b 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -116,7 +116,9 @@ Expects to be bound to `(double-)mouse-1' in `key-translation-map'."
                              (time-since (cdr mouse--last-down))
                               (/ (abs mouse-1-click-follows-link) 1000.0))))))
        (eq (car mouse--last-down)
-           (event-convert-list (list 'down (car-safe last-input-event))))
+           (event-convert-list
+            `(down ,@(event-modifiers last-input-event)
+                   ,(event-basic-type last-input-event))))
        (let* ((action (mouse-on-link-p (event-start last-input-event))))
          (when (and action
                     (or mouse-1-click-in-non-selected-windows