italic font

[yagi tatsuya <yagi@xxxxxxxxxxxxxxx>]

$BLpLZ$H8@$$$^$9!#(B

$BF|K\8l$N%$%?%j%C%/%U%)%s%H$rI=<($5$;$k$3$H$O$G$-$k$N$G$9$,!"(B
$B%+!<%=%k$,<P$a$K$J$i$J$$$N$G%+!<%=%k$r0\F0$9$k$HJ8;z$,7g$1$F$7$^$$$^$9!#(B
$B$3$l$O$I$&$7$?$i2sHr$G$-$^$9$+(B?

$B$^$?!"%G%U%)%k%H$N(B fontset $B$N(B italic $B$d(B bold face $B$N(B
$B%U%)%s%H$,JQ$o$i$J$$$N$G!"(Blisp/international/mw32misc.el $B$N(B
w32-automatic-fontset-regist $B$r<!$N$h$&$K=q$-49$($F$_$?$N$G$9$,!"(B
$B2?$+$^$:$$$G$7$g$&$+(B?

 	      (w32-automatic-font-regist
 	       font-name
 	       (mapcar
-		(lambda (x)
+		(lambda (orglf)
 		  (setq metric (w32-get-logfont-info orglf)
 			newlf (w32-change-logfont-width
 			       orglf
			       (cdr (assq 'width metric)))
			newlf (w32-change-logfont-height
 			       newlf
 			       (cdr (assq 'height metric))))
 		  newlf)
-	       '(0 1 2 3))
+	       (w32-generate-tribial-logfont-list orglf))
 	       encoding-type)

$B:G8e$K$b$&0l$D<ALd$G$9!#<!$N$h$&$K$7$FDj5A$7$?(B fontset $B$O(B
$BF|K\8l$bI=<($7$F$/$l$^$9$,!"$3$l$O$=$&8@$&$b$N$G$7$g$&$+(B?

(w32-automatic-font-regist
 "Courier-16"
 (w32-generate-tribial-logfont-list
  '(w32-logfont "Courier New" 0 -16 400 0 nil nil nil 0 1 3 49))
 0)
(w32-automatic-fontset-regist "fontset-16" "Courier-16")

$B$*$o$j(B