[Emacs-diffs] Changes to emacs/lisp/term/mac-win.el

[YAMAMOTO Mitsuharu]

Index: emacs/lisp/term/mac-win.el
diff -c emacs/lisp/term/mac-win.el:1.45 emacs/lisp/term/mac-win.el:1.46
*** emacs/lisp/term/mac-win.el:1.45     Thu May 12 01:35:20 2005
--- emacs/lisp/term/mac-win.el  Fri May 13 08:51:35 2005
***************
*** 1328,1333 ****
--- 1328,1340 ----
                         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