# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1146898210 0
# Node ID 0970641ee615aa319a04dd01c3c331d69d243f58
# Parent  1a065139c7c33105ece5664a8dbaf34e0ec41573
(mac-utxt-to-string): Don't make adjustment for
MacJapanese if text is ASCII-only.

diff -r 1a065139c7c3 -r 0970641ee615 lisp/term/mac-win.el
--- a/lisp/term/mac-win.el	Sat May 06 00:34:11 2006 +0000
+++ b/lisp/term/mac-win.el	Sat May 06 06:50:10 2006 +0000
@@ -1265,8 +1265,10 @@
 	  ;; reverse solidus?
 	  (if (string-match "[\xa0\xfd-\xff]" str)
 	      (setq str nil)
-	    (subst-char-in-string ?\x5c ?\¥ str t)
-	    (subst-char-in-string ?\x80 ?\\ str t))))
+	    ;; ASCII-only?
+	    (unless (string-match "\\`[[:ascii:]]*\\'" str)
+	      (subst-char-in-string ?\x5c ?\¥ str t)
+	      (subst-char-in-string ?\x80 ?\\ str t)))))
     (or str
 	(decode-coding-string data
 			      (if (eq (byteorder) ?B) 'utf-16be 'utf-16le)))))