diff options
-rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 6b8e65c4a29..72ad77c6344 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -116,9 +116,7 @@ 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 - `(down ,@(event-modifiers last-input-event) - ,(event-basic-type last-input-event)))) + (event-convert-list (list 'down (car-safe 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 |