From: Andrew Innes <andrewi@gnu.org>
Date: Sun, 12 Jul 1998 20:24:23 +0000 (+0000)
Subject: (Fw32_set_clipboard_data): Set Vlast_coding_system_used.
X-Git-Tag: emacs-20.3~334
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0108f679e4334ee197cb0605cf0ad0fe23bd9c04;p=emacs.git

(Fw32_set_clipboard_data): Set Vlast_coding_system_used.
(Fw32_get_clipboard_data): Likewise.
---

diff --git a/src/w32select.c b/src/w32select.c
index 883a6292183..7248559c38f 100644
--- a/src/w32select.c
+++ b/src/w32select.c
@@ -168,6 +168,8 @@ DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data, Sw32_set_clipboard_dat
 	  }
     
 	GlobalUnlock (htext);
+
+	Vlast_coding_system_used = Qraw_text;
       }
     else
       {
@@ -188,6 +190,7 @@ DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data, Sw32_set_clipboard_dat
 	if ((dst = (unsigned char *) GlobalLock (htext)) == NULL)
 	  goto error;
 	encode_coding (&coding, src, dst, nbytes, bufsize);
+	Vlast_coding_system_used = coding.symbol;
 	GlobalUnlock (htext);
 	/* Shrink data block to actual size.  */
 	htext2 = GlobalReAlloc (htext, coding.produced, GMEM_MOVEABLE | GMEM_DDESHARE);
@@ -257,6 +260,7 @@ DEFUN ("w32-get-clipboard-data", Fw32_get_clipboard_data, Sw32_get_clipboard_dat
 	bufsize = decoding_buffer_size (&coding, nbytes);
 	buf = (unsigned char *) xmalloc (bufsize);
 	decode_coding (&coding, src, buf, nbytes, bufsize);
+	Vlast_coding_system_used = coding.symbol;
 	truelen = (coding.fake_multibyte
 		   ? multibyte_chars_in_text (buf, coding.produced)
 		   : coding.produced_char);
@@ -301,6 +305,8 @@ DEFUN ("w32-get-clipboard-data", Fw32_get_clipboard_data, Sw32_get_clipboard_dat
 	      /* copied remaining partial line -> now finished */
 	      break;
 	  }
+
+	Vlast_coding_system_used = Qraw_text;
       }
 
     GlobalUnlock (htext);