[Emacs-diffs] Changes to emacs/src/w16select.c,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    08/08/23 16:49:32

Index: w16select.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/w16select.c,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -b -r1.43 -r1.44
--- w16select.c 2 Jun 2008 06:09:16 -0000       1.43
+++ w16select.c 23 Aug 2008 16:49:32 -0000      1.44
@@ -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++)
+    {
+      if (*dst == '\0' || *dst >= 0x80)
+       break;
+    }
+  if (dst >= src + nbytes)
     {
-      /* No multibyte character in OBJ.  We need not encode it, but we
+      /* 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;
-
-      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;
+      Lisp_Object coding_system =
+       NILP (Vnext_selection_coding_system) ?
+       Vselection_coding_system : Vnext_selection_coding_system;
+
+      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 ();