From: Po Lu Date: Wed, 19 Jul 2023 06:42:02 +0000 (+0800) Subject: Improve behavior of `restart-drag' X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3054d69d88b9977052e889ed9134db4d69b8e97;p=emacs.git Improve behavior of `restart-drag' * lisp/touch-screen.el (touch-screen-handle-point-up): If what is `restart-drag' (meaning that a drag has been restarted but the touchpoint has not moved), translate the release into a regular mouse click to deactivate the region. --- diff --git a/lisp/touch-screen.el b/lisp/touch-screen.el index a9815dfc623..19b3d3b2cf4 100644 --- a/lisp/touch-screen.el +++ b/lisp/touch-screen.el @@ -707,11 +707,11 @@ POINT should be the point currently tracked as PREFIX should be a virtual function key used to look up key bindings. -If the fourth element of `touch-screen-current-tool' is nil, move -point to the position of POINT, selecting the window under POINT -as well, and deactivate the mark; if there is a button or link at -POINT, call the command bound to `mouse-2' there. Otherwise, -call the command bound to `mouse-1'. +If the fourth element of `touch-screen-current-tool' is nil or +`restart-drag', move point to the position of POINT, selecting +the window under POINT as well, and deactivate the mark; if there +is a button or link at POINT, call the command bound to `mouse-2' +there. Otherwise, call the command bound to `mouse-1'. If the fourth element of `touch-screen-current-tool' is `mouse-drag', then generate either a `mouse-1' or a @@ -729,7 +729,11 @@ keyboard if the current buffer and the character at the new point is not read-only." (let ((what (nth 3 touch-screen-current-tool)) (posn (cdr point)) window point) - (cond ((null what) + (cond ((or (null what) + ;; If dragging has been restarted but the touch point + ;; hasn't been moved, translate the sequence into a + ;; regular mouse click. + (eq what 'restart-drag)) (when (windowp (posn-window posn)) (setq point (posn-point posn) window (posn-window posn))