From b2dff6114582c5cd18a7d04fc8102e4cbe45f1be Mon Sep 17 00:00:00 2001 From: Po Lu Date: Tue, 25 Jun 2024 12:27:08 +0800 Subject: [PATCH] * lisp/touch-screen.el (touch-screen-inhibit-drag): Fix typo. (cherry picked from commit 0e43606b20d4ce1c094dfc41ee90f46517aa7419) --- lisp/touch-screen.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/touch-screen.el b/lisp/touch-screen.el index 8b917573bee..ddae698ba1e 100644 --- a/lisp/touch-screen.el +++ b/lisp/touch-screen.el @@ -2064,7 +2064,7 @@ sent until the touch sequence currently being translated ends. Must be called from a command bound to a `touchscreen-hold' or `touchscreen-drag' event." (let* ((tool touch-screen-current-tool) - (current-what (nth 4 tool))) + (current-what (nth 3 tool))) ;; Signal an error if no hold and no drag is in progress. (when (and (not (eq current-what 'hold)) (not (eq current-what 'drag))) -- 2.39.2