Fix unicode strings can't be pasted correctly

* lisp/select.el (x-select-request-type): Use text/plain;charset=utf-8
instead.
(gui--selection-value-internal): same.
(gui-get-selection): Treat text/plain;charset=utf-8 as utf-8.
* src/pgtkselect.c (Fpgtk_get_selection_internal): Support
text/plain;charset=utf-8 as foreign-selection.
(syms_of_pgtkselect): Add new symbol.

1 files changed, 3 insertions, 0 deletions

diff --git a/src/pgtkselect.c b/src/pgtkselect.c
index 469e42f8165..7b7bc69df75 100644
--- a/src/pgtkselect.c
+++ b/src/pgtkselect.c
@@ -576,6 +576,8 @@ On PGTK, TIME-STAMP is unused.  */)
         lispy_type = QCOMPOUND_TEXT;
       else if (sd_type == gdk_atom_intern("UTF8_STRING", false))
         lispy_type = QUTF8_STRING;
+      else if (sd_type == gdk_atom_intern("text/plain;charset=utf-8", false))
+        lispy_type = Qtext_plain_charset_utf_8;
       else
         lispy_type = QSTRING;
       Fput_text_property (make_fixnum (0), make_fixnum (sd_len),
@@ -611,6 +613,7 @@ syms_of_pgtkselect (void)
   DEFSYM (QUTF8_STRING, "UTF8_STRING");
   DEFSYM (QSTRING, "STRING");
   DEFSYM (QCOMPOUND_TEXT, "COMPOUND_TEXT");
+  DEFSYM (Qtext_plain_charset_utf_8, "text/plain;charset=utf-8");
 
   defsubr (&Spgtk_disown_selection_internal);
   defsubr (&Spgtk_get_selection_internal);