[Message Prev][Message Next][Thread Prev][Thread Next][Message Index][Thread Index]

Re: bitmap-mule

From:  小関 吉則 (KOSEKI Yoshinori) <kose@xxxxxxxxxxx> さん曰く
Subject: Re: bitmap-mule
Message-ID: <20060626uejxcmrh3.00kose@xxxxxxxxxxx>
Date: Mon, 26 Jun 2006 14:11:04 +0900

> そうではなく bitmap-mule 単体パッケージを作りたいと考えてい
> ます。
> 
> 既に (w32-add-font "font16-fontset" ...) で作られたフォント
> に bitmap を追加したいんです。

(let ((flst (w32-font-list)))
  (while flst
    (w32-change-font
     (car flst)
     '((spec
	((:char-spec bitmap :height any :weight any :slant any)
	 strict (bdf-font "c:/usr/fonts/intlfonts/etl8x16-bitmap.bdf")))))
    (setq flst (cdr flst))))

で良いんじゃないの？
....

と思ったんだけど、他の情報が消えちゃうんですね。

(let ((flst (w32-font-list))
      (bitmap (cdr (car
		    (mw32-convert-font-request-alist  
		     '((spec
			((:char-spec bitmap :height any :weight any :slant any)
			 strict
			 (bdf-font "c:/usr/fonts/intlfonts/etl8x16-bitmap.bdf"))))))))
      fset info spec len)
  (while (setq fset (car flst))
    (setq flst (cdr flst))
    (setq info (w32-get-font-info fset))
    (when (setq spec (assq 'spec info))
      (setq len (length spec))
      (setcdr (nthcdr (1- len) spec) bitmap))
    (w32-change-font-attribute-internal fset info)))

# なんかもっと良い方法があるような気がするんだけど、息抜き終了 :-)

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxx)