Re: [MD:4399] strict-spec & function.

[MIYOSHI Masanori <miyoshi@xxxxxxxxxxxxxxxx>]

>>>>> [meadow-develop : No.4428] にて
>>>>> "himi" = MIYASHITA Hisashi(宮下 尚:HIMI) <himi@xxxxxxxxxxx> さんは書きました:
himi> At Tue, 03 Jun 2003 01:22:45 +0900,
himi> MIYOSHI Masanori wrote:

himi> > 2ch 情報によると、change-fontset-from-request() が動かないそうです。
himi> > mw32-load-lf-from-request() の引数が不整合のようです。

himi> 今試したら確かに失敗しますね。CVSが死んでますし、
himi> 直すのは後にします。^^;;;

とりあえず、このエラーは回避できたのですが、きちんと動くようにで
きませんでした。

下記の設定で、normal と italic+bold はきちんと表示されるのですが、
italic, bold も italic+bold で表示されてしまいます。

私で対応するのは無理そうなので、きちんと動くようにしてもらえませ
んか?


(create-fontset-from-request "myfontset"
			     '((width . 8)
			       (height . 16)
			       (fixed . t)
			       (centering . t)
			       (weight . 400)
			       (italic . nil))
			     '((family . "Courier New")
			       (family . "ＭＳ ゴシック")))

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

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

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

私が試した修正は次のとおりです。

--- lisp/international/mw32misc.el	(revision 3111)
+++ lisp/international/mw32misc.el	(working copy)
@@ -704,7 +704,8 @@
 			   req))))))
    req))
 
-(defun mw32-load-lf-from-request (c attrs f required recommended option)
+(defun mw32-load-lf-from-request (c attrs f required recommended
+				    &optional option)
   (setq recommended
 	(append recommended
 		(mw32-convert-face-attrs-to-request attrs)))
@@ -770,7 +771,7 @@
 	    :slant any))))
     (if (memq property '(1 3))
 	(plist-put spec :weight 'bold))
-    (if (memq property '(2 4))
+    (if (memq property '(2 3))
 	(plist-put spec :slant 'italic))
     (change-fontset-from-request-with-spec
      name spec required recommended)))

--
三好 雅則 mailto:miyoshi@xxxxxxxxxxxxxxxx
          http://www.boreas.dti.ne.jp/~miyoshi/ (Meadow2 のページ始めました)