From 2b7c83876099fbec3a8eed970105bfb382b9f092 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Tue, 25 Jun 2024 12:52:23 +0800 Subject: [PATCH] * lisp/touch-screen.el (touch-screen-inhibit-drag): Another typo. (cherry picked from commit 60b38c317bbd8e6020442a5c0efe504a22eaa092) --- 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 ddae698ba1e..5186a830c44 100644 --- a/lisp/touch-screen.el +++ b/lisp/touch-screen.el @@ -2066,7 +2066,7 @@ Must be called from a command bound to a `touchscreen-hold' or (let* ((tool touch-screen-current-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)) + (when (and (not (eq current-what 'held)) (not (eq current-what 'drag))) (error "Calling `touch-screen-inhibit-drag' outside hold or drag")) ;; Now set the fourth element of tool to `command-inhibit'. -- 2.39.2