# HG changeset patch
# User Jan Dj¸«£rv <jan.h.d@swipnet.se>
# Date 1163144406 0
# Node ID 80f02ad4de5e7f8012c7cb5fda1925b117ee2bda
# Parent  e456c272798966cf529d533cc286d5198f00eed6
 * term/x-win.el (x-select-text, x-cut-buffer-or-selection-value):
 Encode/decode text to/from cut buffers to/from iso-latin-1 only.

diff -r e456c2727989 -r 80f02ad4de5e lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 10 07:39:08 2006 +0000
+++ b/lisp/ChangeLog	Fri Nov 10 07:40:06 2006 +0000
@@ -1,3 +1,8 @@
+2006-11-10  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
+
+	* term/x-win.el (x-select-text, x-cut-buffer-or-selection-value): 
+	Encode/decode text to/from cut buffers to/from iso-latin-1 only.
+
 2006-11-10  Juanma Barranquero  <lekktu@gmail.com>
 
 	* bs.el (bs--window-for-buffer): Remove.
diff -r e456c2727989 -r 80f02ad4de5e lisp/term/x-win.el
--- a/lisp/term/x-win.el	Fri Nov 10 07:39:08 2006 +0000
+++ b/lisp/term/x-win.el	Fri Nov 10 07:40:06 2006 +0000
@@ -2164,8 +2164,8 @@
 	(t
 	 (setq x-last-selected-text-cut text
 	       x-last-selected-text-cut-encoded
-	       (encode-coding-string text (or locale-coding-system
-					      'iso-latin-1)))
+	       ;; ICCCM says cut buffer always contain ISO-Latin-1
+	       (encode-coding-string text 'iso-latin-1))
 	 (x-set-cut-buffer x-last-selected-text-cut-encoded push)))
   (x-set-selection 'PRIMARY text)
   (setq x-last-selected-text-primary text)
@@ -2346,8 +2346,8 @@
 	   (t
 	    (setq x-last-selected-text-cut-encoded cut-text
 		  x-last-selected-text-cut
-		  (decode-coding-string cut-text (or locale-coding-system
-						     'iso-latin-1))))))
+		  ;; ICCCM says cut buffer always contain ISO-Latin-1
+		  (decode-coding-string cut-text 'iso-latin-1)))))
 
     ;; As we have done one selection, clear this now.
     (setq next-selection-coding-system nil)