From 65a0c81b8438b2d150c31beb572156b49096cf38 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Fri, 10 Nov 2006 07:40:06 +0000 Subject: [PATCH 1/1] * 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. --- lisp/ChangeLog | 5 +++++ lisp/term/x-win.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index add015be45..b13d618af8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-11-10 Jan Dj,Ad(Brv + + * 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 * bs.el (bs--window-for-buffer): Remove. diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 69bc9b10d7..0e68fa575e 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -2164,8 +2164,8 @@ in the clipboard." (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 @@ order until succeed.") (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) -- 2.39.2