Re: master 6aa5068ac71 1/3: Improve treatment of touch screen input by rmc and its callers

[Arash Esbati]

Po Lu <luangruo@yahoo.com> writes:

> OK, what if you replace in:
>
>>> +                   ;; Respond to scroll and pinch events as if RMC were
>>> +                   ;; not in progress.
>>> +                   ((eq (car-safe command) 'touchscreen-scroll)
>>> +                    (funcall #'touch-screen-scroll command))
>>> +                   ((eq (car-safe command) 'touchscreen-pinch)
>>> +                    (funcall #'touch-screen-pinch command))
>
> #'touch-screen-scroll and #'touch-screen-pinch with 'touch-screen-scroll
> and 'touch-screen-pinch?

"Hiding" them from the compiler didn't work, the following change did:

--8<---------------cut here---------------start------------->8---
diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el
index 883f8bf187f..a9142a8b46b 100644
--- a/lisp/emacs-lisp/rmc.el
+++ b/lisp/emacs-lisp/rmc.el
@@ -179,6 +179,9 @@ read-multiple-choice
     (read-multiple-choice--short-answers
      prompt choices help-string show-help)))

+(declare-function touch-screen-scroll "touch-screen" (event))
+(declare-function touch-screen-pinch "touch-screen" (event))
+
 (defun read-multiple-choice--short-answers (prompt choices help-string 
show-help)
   (let* ((dialog-p (use-dialog-box-p))
          (prompt-choices
--8<---------------cut here---------------end--------------->8---

Best, Arash