mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

Update Android port

Browse source 
* lisp/touch-screen.el (touch-screen-handle-point-up) <held>:
Treat `held' as `drag' as well.

* src/android.c (android_is_special_directory): Return bool
rather than a pointer to the remainder of the file name, given
that said pointer is never used.

* src/android.h (android_is_special_directory): Modify
correspondingly.
This commit is contained in:
Po Lu 2023-09-02 09:28:50 +08:00
parent 0346bf419a
commit dc1ed3dbfa
3 changed files with 22 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/touch-screen.el
View file

@ -1034,9 +1034,9 @@ If the fourth element of `touch-screen-current-tool' is
original position of the tool to display its bound keymap as a
menu.
If the fourth element of `touch-screen-current-tool' is `drag',
the region is active, and the tool's initial window's selected
buffer isn't read-only, display the on screen keyboard.
If the fourth element of `touch-screen-current-tool' is `drag' or
`held', the region is active, and the tool's initial window's
selected buffer isn't read-only, display the on screen keyboard.
If the command being executed is listed in
`touch-screen-set-point-commands' also display the on-screen
@ -1159,7 +1159,10 @@ is not read-only."
(throw 'input-event
(list 'down-mouse-1
(nth 4 touch-screen-current-tool))))
((eq what 'drag)
((or (eq what 'drag)
;; Merely initiating a drag is sufficient to select a
;; word if word selection is enabled.
(eq what 'held))
;; Display the on screen keyboard if the region is now
;; active. Check this within the window where the tool was
;; first place.