Re: TrueTypeフォントで表示

[Nishimoto Masaki <nishimoto@xxxxxxxx>]

西本です。

>>>>> ISHIKAWA Tadashi <ishima@xxxxxxxxxxxxxx> writes:

> 改めて述べますと、やりたいことは「半角全角文字ともMSゴシックで表示し
> たい」です。

(let ((font "Nihongo-16")
      (logfont
       '(w32-logfont "ＭＳ ゴシック" 0 -16 400 0 nil nil nil 128 1 3 49))
      (logfonti
       '(w32-logfont "ＭＳ ゴシック" 0 -16 400 0 t nil nil 128 1 3 49)))
  (create-font-from-logfont-list
   font
   (list logfont
	 (w32-change-logfont-weight logfont 300)
	 logfonti
	 (w32-change-logfont-weight logfonti 300))
   4))

(new-fontset "Nihongo-16-set"
	     '(
	       (ascii . "Nihongo-16")
	       (japanese-jisx0208 . "Nihongo-16")
	       (latin-jisx0201 . "Nihongo-16")
	       (katakana-jisx0201 . "Nihongo-16")
	       ))

(setq default-frame-alist
      (append
       (list
	'(ime-font  . "Nihongo-16")
	'(font . "Nihongo-16-set")
	)
       default-frame-alist))


とかですかね??

-- 
西本雅樹 (Nishimoto Masaki)
nishimoto@xxxxxxxx