Meadow2での14ポイントbdfフォント使用について

[Takanori YAMAO <yama-ml@xxxxxxxx>]

山尾と申します．

現在Meadow 1.15を使用しているのですが，Meadow2に乗り換えようか
と思い，いろいろ試しています．が，フォント設定でつまづいていま
す．.emacsに以下のような設定をして，MSゴシックとlt1-14-etl.bdf
を使用しようとしたのですが，lt1-14-etl.bdfが使用されず，
courier newフォント（だと思います）が使用されてしまいます．こ
れがlt1-16-etl.bdfおよびそのbold体等々であると正常に表示されま
す．lt1-14-etl.bdfは，
ftp://m17n.org/pub/mule/intlfonts-1.2.1-split/14dots.tar.gz
を使用しています．

(when (require 'font-setup nil t)
  (setq font-setup-bdf-dir "c:/Meadow2/bdf")
  (font-setup))

(w32-add-font
 "tt-font"
 '((strict-spec
  ((:char-spec ascii :height 120)
     (bdf-font "c:/Meadow2/bdf/lt1-14-etl.bdf"))
    ((:char-spec ascii :height 120 :weight bold)
     (bdf-font "c:/Meadow2/bdf/lt2-14-etl.bdf"))
    ((:char-spec ascii :height 120 :slant italic)
     (bdf-font "c:/Meadow2/bdf/lt3-14-etl.bdf"))
    ((:char-spec ascii :height 120 :weight  bold :slant italic)
     (bdf-font "c:/Meadow2/bdf/lt4-14-etl.bdf"))
    ((:char-spec japanese-jisx0208 :height any)
     (w32-logfont "ＭＳ ゴシック" 0 14 400 0 nil nil nil 128 1 3 49))
    ((:char-spec japanese-jisx0208 :height any :weight bold)
     (w32-logfont "ＭＳ ゴシック" 0 14 700 0 nil nil nil 128 1 3 49)
     ((spacing . -1)))
    ((:char-spec japanese-jisx0208 :height any :slant italic)
     (w32-logfont "ＭＳ ゴシック" 0 14 400 0   t nil nil 128 1 3 49))
    ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
     (w32-logfont "ＭＳ ゴシック" 0 14 700 0   t nil nil 128 1 3 49)
     ((spacing . -1))))))

(setq default-frame-alist
      (cons '(font . "tt-font")
            default-frame-alist))

(setq default-frame-alist
      (append (list '(foreground-color . "black")
		    '(border-color . "red")
		    '(vertical-scroll-bars t)
		    '(width . 84)
		    '(top . 1)
		    '(left . 20)
		    '(cursor-color . "black")
		    '(background-color . "grey94")
		    '(cursor-type . box)
		    (cond 
		     ((equal system-name "KES")  ;; system-name = hostname
		      '(height . 44)
		      )
		     ((equal system-name "UHURA")
		      '(height . 60)
		      )
		     (t 
		      )
		     )
		    )
	      default-frame-alist))

(setq default-frame-alist
      (cons '(ime-font . (w32-logfont "ＭＳ ゴシック"
                                      0 14 400 0 nil nil nil 128 1 3 17))
	    default-frame-alist))

この問題を解決するにはどのようにすればよろしいでしょうか？アド
バイスをいただければ幸いです．

--
山尾貴則 (YAMAO, Takanori)------------http://www.ymzk.org/~yama/
fingerprint : 21E9 39B0 0433 F68A 7193  92BB B339 3122 CF82 5CCD