From: Po Lu <luangruo@yahoo.com>
Date: Sun, 9 Jan 2022 12:43:17 +0000 (+0800)
Subject: Pass through caret position from native GTK input methods
X-Git-Tag: emacs-29.0.90~3175
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e91848344e096e23ad00a8a4e58299a33ed82e1c;p=emacs.git

Pass through caret position from native GTK input methods

* src/gtkutil.c (xg_im_context_preedit_changed): Set caret
position appropriately.
* src/xfns.c (xg_widget_key_press_event_cb): Ignore modifier
keys.
(xic_preedit_caret_callback, xic_preedit_draw_callback):
Constrain caret position to the string length as well.
---

diff --git a/src/gtkutil.c b/src/gtkutil.c
index 5ed871a8226..c47386dae00 100644
--- a/src/gtkutil.c
+++ b/src/gtkutil.c
@@ -6089,6 +6089,13 @@ xg_im_context_preedit_changed (GtkIMContext *imc, gpointer user_data)
   EVENT_INIT (inev);
   inev.kind = PREEDIT_TEXT_EVENT;
   inev.arg = build_string_from_utf8 (str);
+
+  Fput_text_property (make_fixnum (min (SCHARS (inev.arg),
+					max (0, cursor))),
+		      make_fixnum (min (SCHARS (inev.arg),
+					max (0, cursor) + 1)),
+		      Qcursor, Qt, inev.arg);
+
   kbd_buffer_store_event (&inev);
 
   g_free (str);
@@ -6146,6 +6153,9 @@ xg_widget_key_press_event_cb (GtkWidget *widget, GdkEvent *event,
   inev.ie.modifiers
     |= x_x_to_emacs_modifiers (FRAME_DISPLAY_INFO (f), xstate);
 
+  if (event->key.is_modifier)
+    goto done;
+
   /* First deal with keysyms which have defined
      translations to characters.  */
   if (keysym >= 32 && keysym < 128)
@@ -6217,8 +6227,7 @@ xg_widget_key_press_event_cb (GtkWidget *widget, GdkEvent *event,
        || IsKeypadKey (keysym)	/* 0xff80 <= x < 0xffbe */
        || IsFunctionKey (keysym)	/* 0xffbe <= x < 0xffe1 */
        /* Any "vendor-specific" key is ok.  */
-       || (keysym & (1 << 28)))
-      && !(event->key.is_modifier))
+       || (keysym & (1 << 28))))
     {
       inev.ie.kind = NON_ASCII_KEYSTROKE_EVENT;
       inev.ie.code = keysym;
diff --git a/src/xfns.c b/src/xfns.c
index 293a1b586a4..7540816416d 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -2973,7 +2973,8 @@ xic_preedit_caret_callback (XIC xic, XPointer client_data,
 	  ie.arg = make_string_from_utf8 (output->preedit_chars,
 					  output->preedit_size);
 
-	  Fput_text_property (make_fixnum (max (0, output->preedit_caret)),
+	  Fput_text_property (make_fixnum (min (SCHARS (ie.arg),
+						max (0, output->preedit_caret))),
 			      make_fixnum (max (SCHARS (ie.arg),
 						max (0, output->preedit_caret) + 1)),
 			      Qcursor, Qt, ie.arg);
@@ -3195,7 +3196,8 @@ xic_preedit_draw_callback (XIC xic, XPointer client_data,
       ie.arg = make_string_from_utf8 (output->preedit_chars,
 				      output->preedit_size);
 
-      Fput_text_property (make_fixnum (max (0, output->preedit_caret)),
+      Fput_text_property (make_fixnum (min (SCHARS (ie.arg),
+					    max (0, output->preedit_caret))),
 			  make_fixnum (min (SCHARS (ie.arg),
 					    max (0, output->preedit_caret) + 1)),
 			  Qcursor, Qt, ie.arg);