ThinkPad R500 Vista Home Basic, Meadow 3.0

次は，emacsです。Windowsに最適化したemacsのひとつMeadowの最新版3.0を導入することに。
Meadowを使うのにCygwinは不要です。小生は，たまたま両方使いたいから，まずCygwinを入れて次にMeadowを入れるわけです。なぜこの順番がよいのかと言うと，Cygwinの/usr/localにMeadowを置きたいからです。ちなみに，Meadowの作業ディレクトリは，/usr/homeの下ではなく，C:￥Userの下の自分のディレクトリにしています。Meadowのダウンロードは次のURLから。
http://www.meadowy.org/meadow/
Cygwinもemacsとxemacsを提供してくれるんですが，それを日本語化するよりも，Windowsで利用するのであれば，現時点ではMeadowの方が洗練されています。たとえば，IME仮名漢字変換をうまく使えることや，綺麗なフォントが使えることが挙げられます。固定幅のMeiryoKe_Consoleフォントを使うことができますから，とても綺麗です。（なぜか？わざとか？IPA明朝やIPAゴシックなどの固定幅のフォントをVistaで使うと，Ubuntuで使うときより明らかに綺麗じゃないというよりきたない。）
MeiryoKe_Consoleフォントを導入したうえで，.emacsに下記を書いておけばOKです。default-frame-alistのところで，IMEフォントを指定しているので，確定フォントと変換中フォントが同じ大きさになります。また，小生のThinkPad R500の画面サイズに合わせて(width . 90)と(height . 68)にしてありますので，ここは，ご自分の画面サイズに合わせて調整してください。

;;; TrueType フォント設定
;
(w32-add-font
"fontset-MeiryoKe_Console"
'*1
*2
*3
*4
*5
*6
*7
*8
*9

(setq default-frame-alist
(append (list
'(foreground-color . "black")
'(background-color . "LemonChiffon")
'(background-color . "gray")
'(border-color . "black")
'(mouse-color . "white")
'(cursor-color . "black")
'(ime-font . (w32-logfont "MeiryoKe_Console"
0 14 400 0 nil nil nil 128 1 3 49))
'(width . 90)
'(height . 68)
'(top . 0)
'(left . 0))
default-frame-alist))

*1:strict-spec ((:char-spec ascii :height any) (w32-logfont "MeiryoKe_Console" 7 14 400 0 nil nil nil 0 1 3 49

*2::char-spec ascii :height any :weight bold) (w32-logfont "MeiryoKe_Console" 7 14 700 0 nil nil nil 0 1 3 49

*3::char-spec ascii :height any :slant italic) (w32-logfont "MeiryoKe_Console" 7 14 400 0 t nil nil 0 1 3 49

*4::char-spec ascii :height any :weight bold :slant italic) (w32-logfont "MeiryoKe_Console" 7 14 700 0 t nil nil 0 1 3 49

*5::char-spec japanese-jisx0208 :height any) (w32-logfont "MeiryoKe_Console" 0 14 400 0 nil nil nil 128 1 3 49

*6::char-spec japanese-jisx0208 :height any :weight bold) (w32-logfont "MeiryoKe_Console" 0 14 700 0 nil nil nil 128 1 3 49) ((spacing . -1))) ((:char-spec japanese-jisx0208 :height any :slant italic) (w32-logfont "MeiryoKe_Console" 0 14 400 0 t nil nil 128 1 3 49

*7::char-spec japanese-jisx0208 :height any :weight bold :slant italic) (w32-logfont "MeiryoKe_Console" 0 14 700 0 t nil nil 128 1 3 49) ((spacing . -1))) ((:char-spec katakana-jisx0201 :height any) (w32-logfont "MeiryoKe_Console" 0 14 400 0 nil nil nil 128 1 3 49

*8::char-spec katakana-jisx0201 :height any :weight bold) (w32-logfont "MeiryoKe_Console" 0 14 700 0 nil nil nil 128 1 3 49) ((spacing . -1))) ((:char-spec katakana-jisx0201 :height any :slant italic) (w32-logfont "MeiryoKe_Console" 0 14 400 0 t nil nil 128 1 3 49

*9::char-spec katakana-jisx0201 :height any :weight bold :slant italic) (w32-logfont "MeiryoKe_Console" 0 14 700 0 t nil nil 128 1 3 49) ((spacing . -1))) ))) (setq default-frame-alist (append (list '(font . "fontset-MeiryoKe_Console") ; フォントセット ) default-frame-alist