diff options
author | Po Lu <luangruo@yahoo.com> | 2023-10-02 15:38:30 +0800 |
---|---|---|
committer | Po Lu <luangruo@yahoo.com> | 2023-10-02 15:38:30 +0800 |
commit | ad2bb3e9f36d1a4f25e1e2228586331b40a30a46 (patch) | |
tree | 8acee39df39d07b131ff38832d63c8d55fe9a976 /lisp/touch-screen.el | |
parent | db704687bb9992212cec0d5435f6dcd75161e229 (diff) | |
download | emacs-ad2bb3e9f36d1a4f25e1e2228586331b40a30a46.tar.gz |
Properly translate touch screen events into mouse drag ones
* doc/lispref/commands.texi (Drag Events): Correct misleading
example form and reword subsequent elaboration.
* lisp/touch-screen.el (touch-screen-handle-point-up)
<mouse-drag>: Set posns representing drag start and terminus to
mouse position lists, in lieu of pairs between windows and posns
employed previously.
Diffstat (limited to 'lisp/touch-screen.el')
-rw-r--r-- | lisp/touch-screen.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/touch-screen.el b/lisp/touch-screen.el index 23c5bbf71ff..2621aebf037 100644 --- a/lisp/touch-screen.el +++ b/lisp/touch-screen.el @@ -1140,9 +1140,7 @@ is not read-only." ;; ... generate a mouse-1 event... (list 'mouse-1 posn) ;; ... otherwise, generate a drag-mouse-1 event. - (list 'drag-mouse-1 (cons old-window - old-posn) - (cons new-window posn)))) + (list 'drag-mouse-1 old-posn posn))) (if (and (eq new-window old-window) (eq new-point old-point) (windowp new-window) @@ -1150,9 +1148,7 @@ is not read-only." ;; ... generate a mouse-1 event... (list 'mouse-1 posn) ;; ... otherwise, generate a drag-mouse-1 event. - (list 'drag-mouse-1 (cons old-window - old-posn) - (cons new-window posn))))))) + (list 'drag-mouse-1 old-posn posn)))))) ((eq what 'mouse-1-menu) ;; Generate a `down-mouse-1' event at the position the tap ;; took place. |