changeset 97651:62ec1a5d873b

(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in encoding/decoding routines. Use encode_coding_object and decode_coding_object instead of encode_coding and decode_coding.

--- a/src/w16select.c	Sat Aug 23 16:48:55 2008 +0000
+++ b/src/w16select.c	Sat Aug 23 16:49:32 2008 +0000
@@ -503,16 +503,18 @@
   nbytes = SBYTES (string);
   src = SDATA (string);
 
-  /* Since we are now handling multilingual text, we must consider
-     encoding text for the clipboard.  */
-  charset_info = find_charset_in_text (src, SCHARS (string), nbytes,
-				       NULL, Qnil);
-
-  if (charset_info == 0)
+  /* Do we need to encode this text?  */
+  for (dst = src; dst < src + nbytes; dst++)
     {
-      /* No multibyte character in OBJ.  We need not encode it, but we
+      if (*dst == '\0' || *dst >= 0x80)
+	break;
+    }
+  if (dst >= src + nbytes)
+    {
+      /* No multibyte characters in text.  We need not encode it, but we
 	 will have to convert it to DOS CR-LF style.  */
       no_crlf_conversion = 0;
+      Vlast_coding_system_used = Qraw_text;
     }
   else
     {
@@ -521,28 +523,21 @@
       int bufsize;
       struct coding_system coding;
       unsigned char *htext2;
+      Lisp_Object coding_system =
+	NILP (Vnext_selection_coding_system) ?
+	Vselection_coding_system : Vnext_selection_coding_system;
 
-      if (NILP (Vnext_selection_coding_system))
-	Vnext_selection_coding_system = Vselection_coding_system;
-      setup_coding_system
-	(Fcheck_coding_system (Vnext_selection_coding_system), &coding);
-      if (SYMBOLP (coding.pre_write_conversion)
-	  && !NILP (Ffboundp (coding.pre_write_conversion)))
-	{
-	  string = run_pre_post_conversion_on_str (string, &coding, 1);
-	  src = SDATA (string);
-	  nbytes = SBYTES (string);
-	}
-      coding.src_multibyte = 1;
-      coding.dst_multibyte = 0;
+      setup_coding_system (Fcheck_coding_system (coding_system), &coding);
+      coding.dst_bytes = nbytes * 4;
+      coding.destination = (unsigned char *) xmalloc (coding.dst_bytes);
       Vnext_selection_coding_system = Qnil;
       coding.mode |= CODING_MODE_LAST_BLOCK;
-      Vlast_coding_system_used = coding.symbol;
-      bufsize = encoding_buffer_size (&coding, nbytes);
-      dst = (unsigned char *) xmalloc (bufsize);
-      encode_coding (&coding, src, dst, nbytes, bufsize);
+      dst = coding.destination;
+      encode_coding_object (&coding, string, 0, 0,
+			    SCHARS (string), nbytes, Qnil);
       no_crlf_conversion = 1;
       nbytes = coding.produced;
+      Vlast_coding_system_used = CODING_ID_NAME (coding.id);
       src = dst;
     }
 
@@ -555,7 +550,6 @@
 	== 0);
 
   if (!no_crlf_conversion)
-    Vlast_coding_system_used = Qraw_text;
   close_clipboard ();
 
   if (ok) goto unblock;
@@ -603,7 +597,7 @@
   unsigned data_size, truelen;
   unsigned char *htext;
   Lisp_Object ret = Qnil;
-  int no_crlf_conversion, require_encoding = 0;
+  int no_crlf_conversion, require_decoding = 0;
 
   if (NILP (frame))
     frame = Fselected_frame ();
@@ -637,39 +631,30 @@
       {
 	if (htext[i] >= 0x80)
 	  {
-	    require_encoding = 1;
+	    require_decoding = 1;
 	    break;
 	  }
       }
   }
-  if (require_encoding)
+  if (require_decoding)
     {
       int bufsize;
       unsigned char *buf;
       struct coding_system coding;
+      Lisp_Object coding_system = Vnext_selection_coding_system;
 
-      if (NILP (Vnext_selection_coding_system))
-	Vnext_selection_coding_system = Vselection_coding_system;
-      setup_coding_system
-	(Fcheck_coding_system (Vnext_selection_coding_system), &coding);
-      coding.src_multibyte = 0;
-      coding.dst_multibyte = 1;
-      Vnext_selection_coding_system = Qnil;
+      truelen = get_clipboard_data (CF_OEMTEXT, htext, data_size, 1);
+      if (NILP (coding_system))
+	coding_system = Vselection_coding_system;
+      setup_coding_system (Fcheck_coding_system (coding_system), &coding);
+      coding.source = htext;
       coding.mode |= CODING_MODE_LAST_BLOCK;
-      /* We explicitely disable composition handling because selection
+      /* We explicitly disable composition handling because selection
 	 data should not contain any composition sequence.  */
-      coding.composing = COMPOSITION_DISABLED;
-      truelen = get_clipboard_data (CF_OEMTEXT, htext, data_size, 1);
-      bufsize = decoding_buffer_size (&coding, truelen);
-      buf = (unsigned char *) xmalloc (bufsize);
-      decode_coding (&coding, htext, buf, truelen, bufsize);
-      ret = make_string_from_bytes ((char *) buf,
-				    coding.produced_char, coding.produced);
-      xfree (buf);
-      if (SYMBOLP (coding.post_read_conversion)
-	  && !NILP (Ffboundp (coding.post_read_conversion)))
-	ret = run_pre_post_conversion_on_str (ret, &coding, 0);
-      Vlast_coding_system_used = coding.symbol;
+      coding.mode &= CODING_ANNOTATION_MASK;
+      decode_coding_object (&coding, Qnil, 0, 0, truelen, truelen, Qt);
+      ret = coding.dst_object;
+      Vlast_coding_system_used = CODING_ID_NAME (coding.id);
     }
   else
     {
@@ -678,6 +663,7 @@
     }
 
   xfree (htext);
+  Vnext_selection_coding_system = Qnil;
 
  closeclip:
   close_clipboard ();