master 7751ef3a323: Properly avoid displaying the OSK for calls to read-key-sequence

[Po Lu]

branch: master
commit 7751ef3a323a094c8abf129dcc49b52637127b70
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    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