From 7751ef3a323a094c8abf129dcc49b52637127b70 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Sun, 19 Nov 2023 11:38:02 +0800 Subject: [PATCH] Properly avoid displaying the OSK for calls to read-key-sequence * lisp/touch-screen.el (touch-screen-handle-point-up): If prompt is set, throw the input event rather than execute its command. --- lisp/touch-screen.el | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/lisp/touch-screen.el b/lisp/touch-screen.el index 5a04425d343..1ce679cd41a 100644 --- a/lisp/touch-screen.el +++ b/lisp/touch-screen.el @@ -1345,15 +1345,13 @@ is not read-only." (when command (if (memq command touch-screen-set-point-commands) (if touch-screen-translate-prompt - ;; When a `mouse-set-point' command is - ;; encountered and - ;; `touch-screen-handle-touch' is being - ;; called from the keyboard command loop, - ;; call it immediately so that point is set - ;; prior to the on screen keyboard being - ;; displayed. - (call-interactively command nil - (vector event)) + ;; Forgo displaying the virtual keyboard + ;; should touch-screen-translate-prompt be + ;; set, for then the key won't be delivered + ;; to the command loop, but rather to a + ;; caller of read-key-sequence such as + ;; describe-key. + (throw 'input-event event) (if (and (or (not buffer-read-only) touch-screen-display-keyboard) ;; Detect the splash screen and -- 2.39.5