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
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
