Ticket #254 (new 不具合)

Description

以下の設定でフォントを設定すると表示上は 10x20 のフォントで表示されるが (frame-char-width), (frame-char-height) が 8, 16 になってしまう。

(let ((name "test-font"))
  (w32-add-font
   name
   `((spec
      ((:char-spec any :height any :weight any :slant any) function
       (lambda (c prop frame)
	 (let ((bold (memq (plist-get prop :weight) 
			   '(semi-bold bold extra-bold)))
	       (italic (memq (plist-get prop :slant) 
			     '(italic oblique)))
	       (cell (assq (char-charset c) 
			   mw32-charset-windows-font-info-alist)))
	   (list (list 'w32-logfont "MS Mincho" 0 20
		       (if bold 700 400) 0
		       (if italic t nil) nil nil
		       (nth 1 cell) 1 3 0)
		 (nconc (list (cons 'encoding (nth 2 cell))
			      (cons 'spacing (if bold -1 0)))
			(nthcdr 3 cell))
		 ))))
      )))
  (set-frame-font name)
  (list (frame-char-width) (frame-char-height)))
=>(8 16)