From: handa <handa>
Date: Wed, 7 Jul 2004 11:48:54 +0000 (+0000)
Subject: (Mcoding_compound_text): New variable.
X-Git-Tag: REL-1-1-0~121
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a64bbe9e1aaf70c7b68df1b2934758bc63266f55;p=m17n%2Fm17n-lib.git

(Mcoding_compound_text): New variable.
(covert_selection): Fix previous change.
(main): Set Mcoding_compound_text.
---

diff --git a/example/medit.c b/example/medit.c
index 214fb55..f948d4e 100644
--- a/example/medit.c
+++ b/example/medit.c
@@ -180,6 +180,8 @@ MFace *face_dv_ttyogesh, *face_freesans, *face_freeserif, *face_freemono;
 MFace *face_default_fontset, *face_no_ctl_fontset;
 MFace *face_input_status;
 
+MSymbol Mcoding_compound_text;
+
 int logical_move = 1;		/* If 0, move cursor visually.  */
 
 typedef struct {
@@ -999,16 +1001,31 @@ covert_selection (Widget w, Atom *selection_atom,
   MSymbol coding;
 
   mtext_copy (this_mt, 0, mt, from, to);
-#ifdef X_HAVE_UTF8_STRING
-  if (target != XA_COMPOUND_TEXT)
+  if (*target == XA_TEXT)
     {
-      coding = msymbol ("utf-8");
+#ifdef X_HAVE_UTF8_STRING
+      coding = Mcoding_utf_8;
       *return_type = XA_UTF8_STRING;
-    }
-  else
+#else
+      coding = Mcoding_compound_text;
+      *return_type = XA_COMPOUND_TEXT;
 #endif
+    }
+  else if (*target == XA_STRING)
     {
-      coding = msymbol ("compound-text");
+      int len = to - from;
+      int i;
+
+      for (i = 0; i < len; i++)
+	if (mtext_ref_char (this_mt, i) >= 0x100)
+	  /* Can't encode in XA_STRING */
+	  return False;
+      coding = Mcoding_iso_8859_1;
+      *return_type = XA_STRING;
+    }
+  else if (*target == XA_COMPOUND_TEXT)
+    {
+      coding = Mcoding_compound_text;
       *return_type = XA_COMPOUND_TEXT;
     }
   *length = mconv_encode_buffer (coding, this_mt, buf, 4096);
@@ -2403,6 +2420,10 @@ main (int argc, char **argv)
   XA_TEXT = XInternAtom (display, "TEXT", False);
   XA_COMPOUND_TEXT = XInternAtom (display, "COMPOUND_TEXT", False);
   XA_UTF8_STRING = XInternAtom (display, "UTF8_STRING", False);
+  Mcoding_compound_text = mconv_resolve_coding (msymbol ("compound-text"));
+  if (Mcoding_compound_text == Mnil)
+    FATAL_ERROR ("%s\n", "Don't know about COMPOUND-TEXT encoding!");
+
   {
     MPlist *plist = mplist ();
     MFace *face;