[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-27 02a5cfc: * lisp/mouse.el: Fix mouse-1-clock-follows-mouse = dou
From: |
Stefan Monnier |
Subject: |
emacs-27 02a5cfc: * lisp/mouse.el: Fix mouse-1-clock-follows-mouse = double |
Date: |
Thu, 11 Mar 2021 12:13:56 -0500 (EST) |
branch: emacs-27
commit 02a5cfce471613f671722b35536d2a78f17b0429
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* 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.
---
lisp/mouse.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 72ad77c..6b8e65c 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-27 02a5cfc: * lisp/mouse.el: Fix mouse-1-clock-follows-mouse = double,
Stefan Monnier <=