procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Correct ommissions in rmc.el

Browse source 
* lisp/emacs-lisp/rmc.el (touch-screen-scroll)
(touch-screen-pinch): Declare functions.
(read-multiple-choice--short-answers): Call the same functions
directly and prevent the on-screen keyboard from being
deactivated immedately before it is reopened.
This commit is contained in:
Po Lu 2024-06-28 14:43:58 +08:00
parent bf862fc277
commit c4ec905c9a
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/rmc.el
View file

@ -179,6 +179,9 @@ Usage example:
(read-multiple-choice--short-answers (read-multiple-choice--short-answers
prompt choices help-string show-help))) prompt choices help-string show-help)))
(declare-function touch-screen-scroll "touch-screen.el")
(declare-function touch-screen-pinch "touch-screen.el")
(defun read-multiple-choice--short-answers (prompt choices help-string show-help) (defun read-multiple-choice--short-answers (prompt choices help-string show-help)
(let* ((dialog-p (use-dialog-box-p)) (let* ((dialog-p (use-dialog-box-p))
(prompt-choices (prompt-choices
@ -225,7 +228,11 @@ Usage example:
(when (setq command (when (setq command
(let ((current-key-remap-sequence (let ((current-key-remap-sequence
(vector tchar))) (vector tchar)))
(touch-screen-translate-touch nil))) ;; Provide an empty prompt to `t-s-t-t' so
;; that it may not repeatedly display
;; and/or disable the on-screen keyboard,
;; or move point.
(touch-screen-translate-touch "")))
(setq command (if (> (length command) 0) (setq command (if (> (length command) 0)
(aref command 0) (aref command 0)
nil)) nil))
@ -240,9 +247,9 @@ Usage example:
;; Respond to scroll and pinch events as if RMC were ;; Respond to scroll and pinch events as if RMC were
;; not in progress. ;; not in progress.
((eq (car-safe command) 'touchscreen-scroll) ((eq (car-safe command) 'touchscreen-scroll)
(funcall #'touch-screen-scroll command)) (touch-screen-scroll command))
((eq (car-safe command) 'touchscreen-pinch) ((eq (car-safe command) 'touchscreen-pinch)
(funcall #'touch-screen-pinch command)) (touch-screen-pinch command))
;; Prevent other touchscreen-generated events from ;; Prevent other touchscreen-generated events from
;; reaching the default conditional. ;; reaching the default conditional.
((memq (or (and (symbolp command) command) ((memq (or (and (symbolp command) command)