From: morioka <morioka>
Date: Tue, 1 Dec 1998 12:48:54 +0000 (+0000)
Subject: If coding-system `iso-2022-jp-dos' unifies JIS X 0201-Latin to ASCII
X-Git-Tag: apel-199812011900~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4a19474b4e5203e86feac2de8ec616b2770db43e;p=elisp%2Fapel.git

If coding-system `iso-2022-jp-dos' unifies JIS X 0201-Latin to ASCII
and JIS X 0208-1978 to JIS X 0208-1983 by code-point, copy
coding-system `iso-2022-7bit-dos' to `iso-2022-jp-dos' to avoid this
problem.
---

diff --git a/poem-xm.el b/poem-xm.el
index e9516b8..e64b8bd 100644
--- a/poem-xm.el
+++ b/poem-xm.el
@@ -34,6 +34,9 @@
 (and (coding-system-property 'iso-2022-jp 'input-charset-conversion)
      (copy-coding-system 'iso-2022-7bit 'iso-2022-jp))
 
+(and (coding-system-property 'iso-2022-jp-dos 'input-charset-conversion)
+     (copy-coding-system 'iso-2022-7bit-dos 'iso-2022-jp-dos))
+
 ;; Redefine if -{dos|mac|unix} is not found.
 (or (find-coding-system 'raw-text-dos)
     (copy-coding-system 'no-conversion-dos 'raw-text-dos))