戯術者の日記

;;; TrueType フォント設定
(create-fontset-from-request "private-fontset"
 			     '((width . 8)
			       (height . 16)
			       (fixed . t)
			       (italic . nil))
			     '((family . "ＭＳ ゴシック")
			       (family . "Courier New")))

(change-fontset-from-request "private-fontset"
			     '((width . 8)
			       (height . 16)
			       (fixed . t)
			       (weight . 700)
			       (italic . nil))
			     '((family . "ＭＳ ゴシック")
			       (family . "Courier New"))
			     1)

;;; デフォルトのフォント・フレームの設定
(setq default-frame-alist
      (append (list
	       ;; Font
	       '(font . "private-fontset")
	       ;; Frame-size
	       '(width  . 88)
	       '(height . 40)
	       )
	      default-frame-alist))