質問集/147 の変更点

追加された行はこの色です。
削除された行はこの色です。
質問集/147 へ行く。
質問集/147 の差分を削除
 *intlfontsの24dotに変更したい
 
 -ページ: [[質問集]]
 -投稿者: [[mackey]]
 -優先順位: 普通
 -状態: 提案
 -カテゴリー: Meadow
 -投稿日: 2012-07-10 (火) 22:55:10
 -バージョン: 
 
 **メッセージ
 こんばんは。meadowを使っているのですが，まだ初心者といっていいころです。知っている人の設定データをいただいたり，ネットでダウンロードして自分のmeadowを作りました。
 
 そこで，フォントをintlfontsの24dotにしたいのですが，いろいろなサイトを探しましたが，解決できませんでした。
 intlfontsの16dotはできますし，imefontはできます。imefontは文字が大きいので，24dotらしいんですが・・・。
 
 ちなみに下に，私のmeadowの設定をのせておきます。どこがだめなのか分かりますか？
 
 %%%%%%%%%%
 ;;;;;;;;;;;;;;;;;;;;;;   ここから２４dot  ;;;;;;;;;;;;;;;;;;;;;;
 ;(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.
 
 ----
 
 #comment