font.フォント設定


	REF
		http://sourceforge.jp/magazine/09/04/23/0834240/6


; フォントセットを追加
(w32-add-font
     "Meiryo 14"
     '((spec
	((:char-spec ascii :height any)
	 strict
	 (w32-logfont "Meiryo" 0 -14 400 0 nil nil nil 0 1 3 0))
	((:char-spec ascii :height any :weight bold)
	 strict
	 (w32-logfont "Meiryo" 0 -14 700 0 nil nil nil 0 1 3 0)
	 ((spacing . -1)))
	((:char-spec ascii :height any :slant italic)
	 strict
	 (w32-logfont "Meiryo" 0 -14 400 0   t nil nil 0 1 3 0))
	((:char-spec ascii :height any :weight bold :slant italic)
	 strict
	 (w32-logfont "Meiryo" 0 -14 700 0   t nil nil 0 1 3 0)
	 ((spacing . -1)))
	((:char-spec japanese-jisx0208 :height any)
	 strict
	 (w32-logfont "Meiryo" 0 -14 400 0 nil nil nil 128 1 3 0))
	((:char-spec japanese-jisx0208 :height any :weight bold)
	 strict
	 (w32-logfont "Meiryo" 0 -14 700 0 nil nil nil 128 1 3 0)
	 ((spacing . -1)))
	((:char-spec japanese-jisx0208 :height any :slant italic)
	 strict
	 (w32-logfont "Meiryo" 0 -14 400 0   t nil nil 128 1 3 0))
	((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
	 strict
	 (w32-logfont "Meiryo" 0 -14 700 0   t nil nil 128 1 3 0)
	 ((spacing . -1))))))


; 起動時およびnew-frame時のフレーム(ウィンドウ)の設定。
(add-to-list 'default-frame-alist '(font . "Meiryo 14"))

; IMEのフォントを設定
(let ((logfont '(w32-logfont "Meiryo" 0 -14 400 0 nil nil nil 128 1 3 0)))
  (modify-frame-parameters (selected-frame) (list (cons 'ime-font logfont)))
  (add-to-list 'default-frame-alist (cons 'ime-font logfont))
  )




 (frame-parameters)


	(background-color . "#E9E2D2") (foreground-color . "black")