[MD:604] bdf font

[Tatsuya Ichikawa <ichikawa@xxxxxxxxxxxxxx>]

>>>>> In [meadow-develop : No.603] 
>>>>>	"YAMA" = YAMAMOTO Akishige <yamamoto@xxxxxxxxx> wrote:

YAMA> 2. M-x byte-compile-file (必須^_^;;)

  何故ですか ... え、聞くなッて事ですね。
    
YAMA>       (load "/foo/bar/bdffont.elc")

YAMA>       ;; logfont 検索 hook list の末尾に bdf 検索関数を追加。
YAMA>       ;; 最後の t を取れば、hook list の先頭に追加。お好み次第。
YAMA>       (add-hook 'logfont-from-request-functions
YAMA>                 'w32-bdf-logfont-list-from-request
YAMA>                 t) 

YAMA>       ;; bdf を格納してあるディレクトリ
YAMA>       (setq w32-bdf-font-directory "d:/fonts")
YAMA>       ;; bdf のデータベース名
YAMA>       (setq w32-bdf-font-table-filename "~/.bdfdb")

YAMA>       (let ((fontset-name "private-fontset33"))
YAMA>         ;; データベースを更新
YAMA>         ;; (実はこれを実行するタイミングには悩んでます)
YAMA>         (w32-update-bdf-database)
YAMA>         ;; bdf フォント考慮しつつ、フォントセットを作成
YAMA>         (create-fontset-from-request
YAMA>          fontset-name
YAMA>          '((width . 8)
YAMA>            (height . 16)
YAMA>            (fixed . t)
YAMA>            (italic . nil))
YAMA>          '((family . "ＭＳ ゴシック")
YAMA>            (family . "Courier New")))
YAMA>         ;; デフォルトフォントの変更
YAMA>         (set-default-font fontset-name))

  これは bdffont.el の最後に書いてある部分ですね。
  (if nil の部分を (if t に変えれば OK かな...

YAMA> うっ。ここまで実際にやってみると、動かなかったですね^_^;; す、すみま
YAMA> せん。初めての実行時(キャッシュがない状態)に、charset がちゃんととれ
YAMA> てないです。おまぬけでした。すぐ直します。

  あらま。
  では、直してもらうまで待ってマァス (^^)

>>>>> In [meadow-develop : No.602] 
>>>>>	"拙" = Tatsuya Ichikawa <ichikawa@xxxxxxxxxxxxxx> wrote:

拙>   あ”、これが nil を返して来ます。
拙>   ってことはきちんとパッチがあたっていない?? (@_@)

  これ、やまもとさんの Follow と取り違えていました。

-- 
Tatsuya Ichikawa : Epson Software Development Lab, Inc. Nagano , Japan.
# PGP Public Key : See below url. ;-)
  http://www.icat.or.jp/cgi-bin/pgpsearchkey.pl?op=get&search=0x0A2D6599
       E-mail    : <ichikawa@xxxxxxxxxxxxxx><t-ichi@xxxxxxxxxxxxxxxxx>