[Mew-Win32 03162] Re: UTF-8 on mew-1.94.2

[Motohiko Minakuchi]

水口＠京都 と申します。

From: 小関 吉則 (KOSEKI Yoshinori) <kose at example.com>
Subject: [Mew-Win32 03157] Re: UTF-8 on mew-1.94.2
Date: 26 Apr 2001 11:57:14 +0900

> 水口> お天気マークは、TrueTypeフォントではトーフで BDFフォントなら大丈夫なん
> 水口> ですね。
> 
> もし Windows9x ならば TrueType font で表示できます。
> 
> Mule-UCS-0.84/lisp/jisx0213/readme.txt を見てね。

忘れていましたが、最初にこれを見たときに一旦 TrueType font の使用をあ
きらめたのでした。

それが、BDFfont のインストールと Mule-UCS の設定を終って utf-8 なメッ
セージを見たときに TrueType font でもほとんどの文字が見えたので、 喜び
のあまり TrueType font の設定をしていないことを忘れてしまいました。

どうやら、Mule-UCS は utf-8 であっても iso-2022-jp に含まれる文字は 
iso-2022-jp 用のフォントを使用して正しく表示する様ですね。


> kose> Habian200 (JIS2000 (JIS X 0213) TrueType font)
> kose> http://www.vector.co.jp/soft/data/writing/se153670.html
> kose> も表示できました。(Windows98)

ありがとうございます。これがうまくいきました。

私は、こおりやまさんが Meadow1.00 のリリースの頃に公開されていた 
.emacs のサンプルにあった TrueType font の設定が気に入って今でも使用し
ていますが、判らないなりに修正してみたら表示できました。

一応、フォント設定を添付しておきますが、新たに見える様になった文字の美
しさはしくしくものです。
# 調整する技はこれから修得する予定です。
                                                ありがとうございました。
--
水口 元彦 (みなくち もとひこ)
zxcv at example.com

-------------- next part --------------
(cond ((and (eq window-system 'w32) "private-fontset")
       (let ((font "Courier-12"))
	 (w32-add-font font
		       '((encoding-type . 0)
			 (charset-num . 0)
			 (overhang . 7)
			 (base . 12)
			 (height . 16)
			 (width . 7)))
	 (w32-change-font-logfont
	  font 0
	  '(w32-logfont "Courier New" 0 -12 400 0 nil nil nil 0 1 3 49))
	 (w32-change-font-logfont 
	  font 1
	  '(w32-logfont "Courier New" 0 -12 700 0 nil nil nil 0 1 3 49))
	 (w32-change-font-logfont
	  font 2
	  '(w32-logfont "Courier New" 0 -12 400 0 t nil nil 0 1 3 49))
	 (w32-change-font-logfont
	  font 3
	  '(w32-logfont "Courier New" 0 -12 700 0 t nil nil 0 1 3 49)))
	   
       (let ((font "Courier-12-ISO-8859-1"))
	 (w32-add-font font
		       '((encoding-type . 1)
			 (charset-num . 0)
			 (overhang . 0)
			 (base . 12)
			 (height . 16)
			 (width . 7)))
	 (w32-change-font-logfont
	  font 0 
	  '(w32-logfont "Courier New" 0 -12 400 0 nil nil nil 0 1 3 49))
	 (w32-change-font-logfont 
	  font 1 
	  '(w32-logfont "Courier New" 0 -12 700 0 nil nil nil 0 1 3 49))
	 (w32-change-font-logfont
	  font 2
	  '(w32-logfont "Courier New" 0 -12 400 0 t nil nil 0 1 3 49))
	 (w32-change-font-logfont
	  font 3
	  '(w32-logfont "Courier New" 0 -12 700 0 t nil nil 0 1 3 49)))
	   
       (let ((font "Nihongo-12"))
	 (w32-add-font font
		       '((encoding-type . 4)
			 (charset-num . 0)
			 (overhang . 0)
			 (base . 12)
			 (height . 16)
			 (width . 7)))
	 (w32-change-font-logfont 
	  font 0 
	  '(w32-logfont "ＭＳ ゴシック" 0 -12 400 0 nil nil nil 128 1 3 49))
	 (w32-change-font-logfont 
	  font 1 
	  '(w32-logfont "ＭＳ ゴシック" 0 -12 700 0 nil nil nil 128 1 3 49))
	 (w32-change-font-logfont
	  font 2
	  '(w32-logfont "ＭＳ 明朝" 0 -12 400 0 nil nil nil 128 1 3 17))
	 (w32-change-font-logfont
	  font 3
	  '(w32-logfont "ＭＳ 明朝" 0 -12 700 0 nil nil nil 128 1 3 17)))

       (let ((font "Nihongo-0213"))
	 (w32-add-font font
		       '((encoding-type . 4)
			 (charset-num . 0)
			 (overhang . 0)
			 (base . 12)
			 (height . 16)
			 (width . 7)))
	 (w32-change-font-logfont 
	  font 0 
	  '(w32-logfont "Habian" 0 -12 400 0 nil nil nil 128 1 3 49))
	 (w32-change-font-logfont 
	  font 1 
	  '(w32-logfont "Habian" 0 -12 700 0 nil nil nil 128 1 3 49))
	 (w32-change-font-logfont
	  font 2
	  '(w32-logfont "Habian" 0 -12 400 0 nil nil nil 128 1 3 17))
	 (w32-change-font-logfont
	  font 3
	  '(w32-logfont "Habian" 0 -12 700 0 nil nil nil 128 1 3 17)))
	   
       (new-fontset
	"private-fontset" '((ascii . "Courier-12")
			    (latin-iso8859-1 . "Courier-12-ISO-8859-1")
			    (katakana-jisx0201 . "Nihongo-12")
			    (japanese-jisx0208 . "Nihongo-12")
			    (japanese-jisx0213-1 . "Nihongo-0213")
			    (japanese-jisx0213-2 . "Nihongo-0213")
;;			    (japanese-jisx0212 . "Hojokanji-16")
			    ))
       ))