intlfontsの24dotに変更したいメッセージこんばんは。meadowを使っているのですが,まだ初心者といっていいころです。知っている人の設定データをいただいたり,ネットでダウンロードして自分のmeadowを作りました。 そこで,フォントをintlfontsの24dotにしたいのですが,いろいろなサイトを探しましたが,解決できませんでした。 intlfontsの16dotはできますし,imefontはできます。imefontは文字が大きいので,24dotらしいんですが・・・。 ちなみに下に,私のmeadowの設定をのせておきます。どこがだめなのか分かりますか? %%%%%%%%%% ;;;;;;;;;;;;;;;;;;;;;; ここから24dot ;;;;;;;;;;;;;;;;;;;;;; ;(load-file "c:/Meadow/fonts/intlfonts.el") ;(load-file "c:/Meadow/fonts/imefont.el") ;; intlfonts の設定 ;; BDFフォントのおきばしょ (setq bdf-font-directory "c:/Meadow/fonts/bdf/") (setq intlfonts-file-alist '((ascii "Japanese-X/12x24rk.bdf" 0) ;; ISO8859-1 (katakana-jisx0201 "Japanese-X/12x24rk.bdf" 1) ;; JISX0201 (latin-jisx0201 "Japanese-X/12x24rk.bdf" 0) ;; JISX0201 (japanese-jisx0208-1978 "Japanese-X/jiskan24.bdf" 0) ;; JISX0208.1978 (japanese-jisx0208 "Japanese-X/jiskan24.bdf" 0) ;; JISX0208.1983 (japanese-jisx0212 "Japanese-X/jiskan24.bdf" 0) ;; JISX0212 )) ;; (defvar intlfonts-initted nil) ;;; (defun my-w32-configure-bdf-font (fontset bdf-font-file-alist) (when (not intlfonts-initted) (new-fontset fontset (mapcar (lambda (x) (let* ((charset (car x)) (filename (nth 1 x)) (encoding (nth 2 x)) (fontname (concat fontset "-" (symbol-name charset)))) (w32-auto-regist-bdf-font fontname (expand-file-name filename bdf-font-directory) encoding) (cons charset fontname))) bdf-font-file-alist)) (setq intlfonts-initted t))) ;; (my-w32-configure-bdf-font "intlfonts" intlfonts-file-alist) ;;;; intlfonts.el ends here. |