From 5ff31bf36cf00f9d5a378ce139fd5c2ae8d3f25e Mon Sep 17 00:00:00 2001
From: Po Lu
Date: Tue, 18 Jul 2023 10:12:40 +0800
Subject: Update Android port

* doc/lispref/commands.texi (Touchscreen Events): Describe
treatment of canceled touch sequences during touch event
translation.
* java/org/gnu/emacs/EmacsNative.java (EmacsNative): Update JNI
prototypes.
* java/org/gnu/emacs/EmacsWindow.java (motionEvent): Set
cancelation flag in events sent where appropriate.
* lisp/touch-screen.el (touch-screen-handle-point-update):
Improve treatment of horizontal scrolling near window edges.
(touch-screen-handle-touch): Don't handle point up if the touch
sequence has been canceled.
* src/android.c (sendTouchDown, sendTouchUp, sendTouchMove): New
argument `flags'.
* src/androidgui.h (enum android_touch_event_flags): New enum.
(struct android_touch_event): New field `flags'.
* src/androidterm.c (handle_one_android_event): Report
cancelation in TOUCHSCREEN_END_EVENTs.
* src/keyboard.c (make_lispy_event): Fix botched merge.
---
 java/org/gnu/emacs/EmacsNative.java |  9 ++++++---
 java/org/gnu/emacs/EmacsWindow.java | 19 +++++++++++++------
 2 files changed, 19 insertions(+), 9 deletions(-)

(limited to 'java')

diff --git a/java/org/gnu/emacs/EmacsNative.java b/java/org/gnu/emacs/EmacsNative.java
index 1331539879a..d4d502ede5a 100644
--- a/java/org/gnu/emacs/EmacsNative.java
+++ b/java/org/gnu/emacs/EmacsNative.java
@@ -142,15 +142,18 @@ public final class EmacsNative
 
   /* Send an ANDROID_TOUCH_DOWN event.  */
   public static native long sendTouchDown (short window, int x, int y,
-					   long time, int pointerID);
+					   long time, int pointerID,
+					   int flags);
 
   /* Send an ANDROID_TOUCH_UP event.  */
   public static native long sendTouchUp (short window, int x, int y,
-					 long time, int pointerID);
+					 long time, int pointerID,
+					 int flags);
 
   /* Send an ANDROID_TOUCH_MOVE event.  */
   public static native long sendTouchMove (short window, int x, int y,
-					   long time, int pointerID);
+					   long time, int pointerID,
+					   int flags);
 
   /* Send an ANDROID_WHEEL event.  */
   public static native long sendWheel (short window, int x, int y,
diff --git a/java/org/gnu/emacs/EmacsWindow.java b/java/org/gnu/emacs/EmacsWindow.java
index 0e96a8382d0..8118479319e 100644
--- a/java/org/gnu/emacs/EmacsWindow.java
+++ b/java/org/gnu/emacs/EmacsWindow.java
@@ -1025,23 +1025,30 @@ public final class EmacsWindow extends EmacsHandleObject
 	    /* Touch down event.  */
 	    EmacsNative.sendTouchDown (this.handle, coordinate.x,
 				       coordinate.y, time,
-				       coordinate.id);
+				       coordinate.id, 0);
 	    break;
 
 	  case MotionEvent.ACTION_UP:
 	  case MotionEvent.ACTION_POINTER_UP:
+	    /* Touch up event.  */
+	    EmacsNative.sendTouchUp (this.handle, coordinate.x,
+				     coordinate.y, time,
+				     coordinate.id, 0);
+	    break;
+
 	  case MotionEvent.ACTION_CANCEL:
-	    /* Touch up event.  Android documentation says ACTION_CANCEL
-	       should be treated as more or less equivalent to ACTION_UP,
-	       so that is what is done here.  */
+	    /* Touch sequence cancellation event.  */
 	    EmacsNative.sendTouchUp (this.handle, coordinate.x,
-				     coordinate.y, time, coordinate.id);
+				     coordinate.y, time,
+				     coordinate.id,
+				     1 /* ANDROID_TOUCH_SEQUENCE_CANCELED */);
 	    break;
 
 	  case MotionEvent.ACTION_MOVE:
 	    /* Pointer motion event.  */
 	    EmacsNative.sendTouchMove (this.handle, coordinate.x,
-				       coordinate.y, time, coordinate.id);
+				       coordinate.y, time,
+				       coordinate.id, 0);
 	    break;
 	  }
       }
-- 
cgit v1.2.1