mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

Update Android port

Browse source 
* doc/lispref/commands.texi (Key Sequence Input): Describe which
events receive imaginary prefix keys.
* lisp/touch-screen.el (touch-screen-translate-touch): Consider
`vertical-line' a virtual function key.
(function-key-map): Translate events on vertical window borders.
This commit is contained in:
Po Lu 2023-07-22 10:45:36 +08:00
parent 3a9fca84f2
commit c81bd0f60b
2 changed files with 21 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/touch-screen.el
View file

@ -1287,6 +1287,7 @@ if POSN is on a link or a button, or `mouse-1' otherwise."
;; If event1 is a virtual function key, make
;; it the new prefix.
(if (memq event1 '(mode-line tab-line nil
vertical-line
header-line tool-bar tab-bar
left-fringe right-fringe
left-margin right-margin
@ -1397,6 +1398,11 @@ if POSN is on a link or a button, or `mouse-1' otherwise."
(define-key function-key-map [tab-line touchscreen-end]
#'touch-screen-translate-touch)
(define-key function-key-map [vertical-line touchscreen-begin]
#'touch-screen-translate-touch)
(define-key function-key-map [vertical-line touchscreen-end]
#'touch-screen-translate-touch)
(define-key function-key-map [nil touchscreen-begin]
#'touch-screen-translate-touch)
(define-key function-key-map [nil touchscreen-end]