From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 3 Feb 1999 14:53:47 +0000 (+0000)
Subject: (Fw16_set_clipboard_data): When the text needs to be
X-Git-Tag: emacs-20.4~692
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7594627811730e51bc030042af9b109e2582707;p=emacs.git

(Fw16_set_clipboard_data): When the text needs to be
encoded, set its pointer and size as returned by encode_coding.
---

diff --git a/src/w16select.c b/src/w16select.c
index e94a420d1a4..a5b188df19b 100644
--- a/src/w16select.c
+++ b/src/w16select.c
@@ -475,6 +475,7 @@ DEFUN ("w16-set-clipboard-data", Fw16_set_clipboard_data, Sw16_set_clipboard_dat
       /* No multibyte character in OBJ.  We need not encode it, but we
 	 will have to convert it to DOS CR-LF style.  */
       no_crlf_conversion = 0;
+      dst = src;
     }
   else
     {
@@ -495,6 +496,7 @@ DEFUN ("w16-set-clipboard-data", Fw16_set_clipboard_data, Sw16_set_clipboard_dat
       dst = (unsigned char *) xmalloc (bufsize);
       encode_coding (&coding, src, dst, nbytes, bufsize);
       no_crlf_conversion = 1;
+      nbytes = coding.produced;
     }
 
   if (!open_clipboard ())
@@ -502,7 +504,7 @@ DEFUN ("w16-set-clipboard-data", Fw16_set_clipboard_data, Sw16_set_clipboard_dat
   
   ok = empty_clipboard ()
     && ((put_status
-	 = set_clipboard_data (CF_OEMTEXT, src, nbytes, no_crlf_conversion))
+	 = set_clipboard_data (CF_OEMTEXT, dst, nbytes, no_crlf_conversion))
 	== 0);
 
   if (!no_crlf_conversion)