[Mew-dist 12751] Re: ISO-2022-JP-3

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 12747] Re: ISO-2022-JP-3
Message-ID: <20000406.154936.41706541.kazu at example.com>
Date: Thu, 6 Apr 2000 15:36:43 +0900

kazu> From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
kazu> Subject: [Mew-dist 12742] Re: ISO-2022-JP-3
kazu> 
kazu> > (Mew 独自で実装しなくても) 現状 Emacs 20.6 なら
kazu> > 
kazu> > /ftp.m17n.org:/pub/mule/Mule-UCS の Mule-UCS-0.74.tar.gz
kazu> > 
kazu> > を使って、mew-cs-database と mew-charset-list をごにょごにょすれ
kazu> > ば iso-2022-jp3 (utf-8, utf-7 も)の読み書きが出来ています。
kazu> 
kazu> 僕の環境でも JP-3 が表示できるようになりました。
kazu> 
kazu> 14x14 でも、ちゃんと表示できて、嬉しい...

私は DeskTop で 16x16、NotePC で 14x14 を使っています。
最初表示されたときは、(予備知識も全く無かったため)結構感動しました。

ちなみに、jisx0213 が入っていると Scan が乱れる現象は、以下のパッ
チで収まっているようです。(これ以上は私なんぞにはできない)

## 結局、各種マークは egg-sim で入力しています。たまご化への第一
## 歩かも。

-- 
白井秀行 (mailto:shirai at example.com)
-------------- next part --------------
--- Scan.pm.orig	Mon Feb 28 12:54:21 2000
+++ Scan.pm	Thu Apr  6 17:58:55 2000
@@ -781,7 +781,7 @@
 		my $i;
 
 		if ($room % 2 and $charset =~
-		    /^(jisx0208|jisx0212|ksc5601|cns11643-plane-2)/) {
+		    /^(jisx0208|jisx0212|jisx0213|ksc5601|cns11643-plane-2)/) {
 		    $room--;
 		    $last_char = ' ';
 		}
@@ -809,6 +809,9 @@
 	elsif (s/(^\e\$\(D)//)	{ $G0 = $charset = 'jisx0212-1990'; }
 	elsif (s/(^\e\$\(C)//)	{ $G1 = $charset = 'ksc5601-1987';
 				  $G0 = 'ascii'; }
+
+	elsif (s/(^\e\$\(O)//)	{ $G0 = $charset = 'jisx0213-1'; }
+	elsif (s/(^\e\$\(P)//)	{ $G0 = $charset = 'jisx0213-2'; }
 
 	elsif (s/(^\e-A)//)	{ $G1 = $charset = 'iso8859-1'; }
 	elsif (s/(^\e-B)//)	{ $G1 = $charset = 'iso8859-2'; }