diff options
author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2006-05-06 06:50:10 +0000 |
---|---|---|
committer | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2006-05-06 06:50:10 +0000 |
commit | e834108f7df677ac323d554934fd6ea60560e289 (patch) | |
tree | 9e3a8a9335ec84a8e45ce03e77562e5d1d3b92e7 | |
parent | 0745bc2e980a4bc760cdc6d90a5d02a30712e6d9 (diff) | |
download | emacs-e834108f7df677ac323d554934fd6ea60560e289.tar.gz |
(mac-utxt-to-string): Don't make adjustment for
MacJapanese if text is ASCII-only.
-rw-r--r-- | lisp/term/mac-win.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 6495f30e2c7..8e810284b75 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -1265,8 +1265,10 @@ correspoinding TextEncodingBase value." ;; 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))))) |