From: Kenichi Handa <handa@m17n.org>
Date: Thu, 9 Jul 1998 02:02:33 +0000 (+0000)
Subject: (selection_data_to_lisp_data): Set Vlast_coding_system_used.
X-Git-Tag: emacs-20.3~363
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=061bda8dfd24c7f4c6396941d4352264c543613e;p=emacs.git

(selection_data_to_lisp_data): Set Vlast_coding_system_used.
(lisp_data_to_selection_data): Likewize.
---

diff --git a/src/xselect.c b/src/xselect.c
index 969fd4e4148..713db184ef8 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -1494,7 +1494,10 @@ selection_data_to_lisp_data (display, data, size, type, format)
 	    }
 	}
       if (!require_encoding)
-	str = make_unibyte_string ((char *) data, size);
+	{
+	  str = make_unibyte_string ((char *) data, size);
+	  Vlast_coding_system_used = Qraw_text;
+	}
       else
 	{
 	  int bufsize;
@@ -1512,6 +1515,7 @@ selection_data_to_lisp_data (display, data, size, type, format)
 		  : coding.produced_char);
 	  str = make_string_from_bytes ((char *) buf, size, coding.produced);
 	  xfree (buf);
+	  Vlast_coding_system_used = coding.symbol;
 	}
       return str;
     }
@@ -1627,6 +1631,7 @@ lisp_data_to_selection_data (display, obj,
 	  /* No multibyte character in OBJ.  We need not encode it.  */
 	  *nofree_ret = 1;
 	  if (NILP (type)) type = QSTRING;
+	  Vlast_coding_system_used = Qraw_text;
 	}
       else
 	{
@@ -1657,6 +1662,7 @@ lisp_data_to_selection_data (display, obj,
 	      /* We must return it as `COMPOUND_TEXT'.  */
 	      if (NILP (type)) type = QCOMPOUND_TEXT;
 	    }
+	  Vlast_coding_system_used = coding.symbol;
 	}
     }
   else if (SYMBOLP (obj))