[MD:603] bdf font

[YAMAMOTO Akishige <yamamoto@xxxxxxxxx>]

Tatsuya Ichikawa <ichikawa@xxxxxxxxxxxxxx> writes:

> >>>>> In [meadow-develop : No.593] 
> >>>>>	"YAMA" = YAMAMOTO Akishige <yamamoto@xxxxxxxxx> wrote:
> 
> YAMA> ぐぇぇ、バッティングしてしまいました。私もゴリゴリ書いてました^_^;;
> 
>   すみません、これを使ってみようとしたんですが、いまいち使い方が
>   分からずに困っています。
>   一応、patch は当ててみた temacs.exe を作成し、下記の elisp も自分用に
>   modify しました。
>   ですが C-h h で HELLO ファイルを見ると BDF 等が表示されません。
> 
>   使い方などのドキュメントはありますか??

# 月曜日から死んでます。

すみません、DOC string も何もなくって^^;;

本来なら、mw32misc.el にパッチをあてるべき個所もあるのですが、恐れ多
くて、それはやってません^^;;。その為、とりあえずの使い方としては、

0. mw32bdf.[ch] にパッチをあてコンパイル。
1. 例えば、bdffont.el などとして どこかに格納。
2. M-x byte-compile-file (必須^^;;)
3. 以下を実行。

      (load "/foo/bar/bdffont.elc")

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

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

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

こんな感じです。

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

;; やまもと