From 5a537870e39b4caf1dccc69c07b499ed9a69f8de Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Fri, 13 May 2005 08:51:35 +0000 Subject: [PATCH] (mac-select-convert-to-string): Try coding systems in mac-script-code-coding-systems if specified one cannot encode string for `com.apple.traditional-mac-plain-text'. --- lisp/term/mac-win.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 8fbbc7cd41a..366668c66f3 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -1328,6 +1328,13 @@ in `selection-converter-alist', which see." coding 'utf-16))) (setq str (or s (encode-coding-string str 'utf-16-mac))))) ((eq type 'com.apple.traditional-mac-plain-text) + (let ((encodables (find-coding-systems-string str)) + (rest mac-script-code-coding-systems)) + (unless (memq coding encodables) + (while (and rest (not (memq (cdar rest) encodables))) + (setq rest (cdr rest))) + (if rest + (setq coding (cdar rest))))) (setq coding (coding-system-change-eol-conversion coding 'mac)) (setq str (encode-coding-string str coding))) (t -- 2.39.2