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

[YAMAMOTO Mitsuharu]

Index: emacs/lisp/term/mac-win.el
diff -u emacs/lisp/term/mac-win.el:1.67 emacs/lisp/term/mac-win.el:1.68
--- emacs/lisp/term/mac-win.el:1.67     Fri May  5 06:43:12 2006
+++ emacs/lisp/term/mac-win.el  Sat May  6 06:50:10 2006
@@ -1265,8 +1265,10 @@
          ;; reverse solidus?
          (if (string-match "[\xa0\xfd-\xff]" str)
              (setq str nil)
-           (subst-char-in-string ?\x5c ?\(J\(B str t)
-           (subst-char-in-string ?\x80 ?\\ str t))))
+           ;; ASCII-only?
+           (unless (string-match "\\`[[:ascii:]]*\\'" str)
+             (subst-char-in-string ?\x5c ?\(J\(B str t)
+             (subst-char-in-string ?\x80 ?\\ str t)))))
     (or str
        (decode-coding-string data
                              (if (eq (byteorder) ?B) 'utf-16be 'utf-16le)))))