diff options
author | Jan Djärv <jan.h.d@swipnet.se> | 2006-11-18 13:16:58 +0000 |
---|---|---|
committer | Jan Djärv <jan.h.d@swipnet.se> | 2006-11-18 13:16:58 +0000 |
commit | ccf17b26dca875afcc350c7393eaaf0659f36fab (patch) | |
tree | c24d11fa29391e530d7c778a0db8c6f64aea900c | |
parent | 3a6df531dba198b7a979ccb90f74e6770dc410db (diff) | |
download | emacs-ccf17b26dca875afcc350c7393eaaf0659f36fab.tar.gz |
(x-cut-buffer-or-selection-value): Decode text from
cut-buffers with next-selection-coding-system if not nil.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/term/x-win.el | 19 |
2 files changed, 13 insertions, 11 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6d5538d63e4..4e616ac7a2a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-11-18 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> + + * term/x-win.el (x-cut-buffer-or-selection-value): Decode text from + cut-buffers with next-selection-coding-system if not nil. + 2006-11-17 Carsten Dominik <dominik@science.uva.nl> * textmodes/org.el (org-fix-decoded-time): New function. diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 0e68fa575eb..b0e2dc85a04 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -2334,20 +2334,17 @@ order until succeed.") (cond;; check cut buffer ((or (not cut-text) (string= cut-text "")) (setq x-last-selected-text-cut nil)) - ;; This short cut doesn't work because x-get-cut-buffer - ;; always returns a newly created string. - ;; ((eq cut-text x-last-selected-text-cut) nil) - ((string= cut-text x-last-selected-text-cut-encoded) - ;; See the comment above. No need of this recording. - ;; Record the newer string, - ;; so subsequent calls can use the `eq' test. - ;; (setq x-last-selected-text-cut cut-text) - nil) (t + ;; We can not compare x-last-selected-text-cut-encoded with + ;; cut-text because the next-selection-coding-system may have changed + ;; so we need to re-decode anyway. (setq x-last-selected-text-cut-encoded cut-text x-last-selected-text-cut - ;; ICCCM says cut buffer always contain ISO-Latin-1 - (decode-coding-string cut-text 'iso-latin-1))))) + ;; ICCCM says cut buffer always contain ISO-Latin-1, but + ;; use next-selection-coding-system if not nil. + (decode-coding-string + cut-text + (or next-selection-coding-system 'iso-latin-1)))))) ;; As we have done one selection, clear this now. (setq next-selection-coding-system nil) |