From 0c4fea7efce48af46738f47b411c6171d52a8cf0 Mon Sep 17 00:00:00 2001
From: handa <handa>
Date: Tue, 6 Jul 2004 05:14:07 +0000
Subject: [PATCH] (covert_selection): If X_HAVE_UTF8_STRING is defined and
 target is XA_UTF8_STRING, encode by utf-8. (get_selection):
 If X_HAVE_UTF8_STRING is defined and *type is
 XA_UTF8_STRING, decode by utf-8.

---
 example/medit.c |   28 ++++++++++++++++++++++------
 1 file changed, 22 insertions(+), 6 deletions(-)

diff --git a/example/medit.c b/example/medit.c
index 8bc1b83..214fb55 100644
--- a/example/medit.c
+++ b/example/medit.c
@@ -984,8 +984,9 @@ insert_chars (MText *newtext)
 }
 
 
-/* Convert the currently selected text to COMPOUND-TEXT.  It is called
-   when someone requests the current value of the selection.  */
+/* Convert the currently selected text to UTF8-STRING or
+   COMPOUND-TEXT.  It is called when someone requests the current
+   value of the selection.  */
 Boolean
 covert_selection (Widget w, Atom *selection_atom,
 		  Atom *target, Atom *return_type,
@@ -995,14 +996,27 @@ covert_selection (Widget w, Atom *selection_atom,
   MText *this_mt = mtext ();
   int from = mtext_property_start (selection);
   int to = mtext_property_end (selection);
+  MSymbol coding;
 
   mtext_copy (this_mt, 0, mt, from, to);
-  *length = mconv_encode_buffer (msymbol ("compound-text"),
-				 this_mt, buf, 4096);
-  *return_type = XA_COMPOUND_TEXT;
+#ifdef X_HAVE_UTF8_STRING
+  if (target != XA_COMPOUND_TEXT)
+    {
+      coding = msymbol ("utf-8");
+      *return_type = XA_UTF8_STRING;
+    }
+  else
+#endif
+    {
+      coding = msymbol ("compound-text");
+      *return_type = XA_COMPOUND_TEXT;
+    }
+  *length = mconv_encode_buffer (coding, this_mt, buf, 4096);
+  m17n_object_unref (this_mt);
+  if (*length == 0)
+    return False;
   *value = (XtPointer) buf;
   *format = 8;
-  m17n_object_unref (this_mt);
   return True;
 }
 
@@ -1031,8 +1045,10 @@ get_selection (Widget w, XtPointer cliend_data, Atom *selection,  Atom *type,
     coding = Mnil;
   else if (*type == XA_COMPOUND_TEXT)
     coding = msymbol ("compound-text");
+#ifdef X_HAVE_UTF8_STRING
   else if (*type == XA_UTF8_STRING)
     coding = msymbol ("utf-8");
+#endif
   else
     goto err;
 
-- 
1.7.10.4