diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-11 11:41:53 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-11 11:41:53 -0500 |
| commit | 02a5cfce471613f671722b35536d2a78f17b0429 (patch) | |
| tree | ec6e2e1fcbac8a0623dc8a6242a4cc5fde3619af /lisp/mouse.el | |
| parent | c881e990e3a083d7c8b990a2004a3ae82b886b9d (diff) | |
| download | emacs-02a5cfce471613f671722b35536d2a78f17b0429.tar.gz | |
* 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.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 72ad77c6344..6b8e65c4a29 100644 --- 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 |