diff options
| author | Po Lu | 2025-11-25 10:48:27 +0800 |
|---|---|---|
| committer | Po Lu | 2025-11-25 10:48:56 +0800 |
| commit | 0d1bb23d8caf36f6f9bf8cd073aeca557112830c (patch) | |
| tree | 4aedc0a71081f4d905ac6a7afab9d23c497a563f /admin | |
| parent | c767928997d3015695e678d3cfad7d0a11f2da9d (diff) | |
| download | emacs-0d1bb23d8caf36f6f9bf8cd073aeca557112830c.tar.gz emacs-0d1bb23d8caf36f6f9bf8cd073aeca557112830c.zip | |
Fix mouse dragging on touch screens
* lisp/mouse.el (mouse-position-for-drag-line): New function;
return position of active touch screen tool if a sequence is
being translated into mouse movement events, and the last mouse
position otherwise.
(mouse-drag-line): Invoke `mouse-position-for-drag-line' rather
than reading the mouse position manually.
* lisp/touch-screen.el (touch-screen-current-tool): New 10th
field holding the frame-relative last attested position of this
tool.
(touch-screen-relative-xy): Clarify doc string.
(touch-screen-handle-point-update): Update the said field with
POSN's position relative to its frame.
(touch-screen-handle-touch): Initialize the 10th field of new
tool lists with such a position.
(touch-screen-last-drag-position): New function.
Diffstat (limited to 'admin')
0 files changed, 0 insertions, 0 deletions