mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

; * lisp/touch-screen.el (touch-screen-handle-touch): Correct typo.

Browse source
This commit is contained in:
Po Lu 2023-11-22 11:25:23 +08:00
parent 148250f074
commit f50e54c01e
1 changed files with 16 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/touch-screen.el
View file

@ -1662,20 +1662,22 @@ the place of EVENT within the key sequence being translated, or
(when touch-screen-current-timer
(cancel-timer touch-screen-current-timer)
(setq touch-screen-current-timer nil))
(let ((old-aux-tool touch-screen-aux-tool))
(unwind-protect
;; Don't perform any actions associated with releasing the
;; tool if the touch sequence was intercepted by another
;; program.
(unless (caddr event)
(if (caddr event)
(setq touch-screen-current-tool nil)
(touch-screen-handle-point-up (cadr event) prefix))
;; If an ancillary tool is present the function call above
;; will merely transfer information from it into the current
;; tool list, thereby rendering it the new current tool,
;; until such time as it too is released.
(if (or (caddr event) touch-screen-aux-tool)
(when (not (and old-aux-tool (not touch-screen-aux-tool)))
;; Make sure the tool list is cleared even if
;; `touch-screen-handle-point-up' throws.
(setq touch-screen-current-tool nil))))
(setq touch-screen-current-tool nil)))))
;; If it is rather the ancillary tool, delete its vector. No
;; further action is required, for the next update received will
;; resume regular gesture recognition.