[MD:1698]mw32faces.el - set-face-underline-p

[小関 吉則 (KOSEKI Yoshinori) <kose@xxxxxxxxxxxxxxxxxx>]

移動しますね。

>>>>> In [Mew-Win32 : No.02460] 
>>>>> “白井” = Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>さん
白井> P.S.
白井> あなたの Meadow で

白井>   (let ()
白井>     (copy-face 'italic 'zzz1)
白井>     (set-face-foreground 'zzz1 "blue")
白井>     (set-face-underline-p 'zzz1 nil)
白井>     (copy-face 'zzz1 'zzz2)
白井>     (set-face-underline-p 'zzz2 t))

白井> を評価して、'M-x list-faces-display' すると zzz2 は italic 体で
白井> すか？ 私の Meadow 1.12b1 は italic ではなくなるのです。

白井> ちなみに (set-face-underline-p 'zzz1 nil) をしなければ、zzz2 も
白井> italic になります。

Medow1.10 も同様でした。

白井> # どうも気になって、夜も眠れないので Meadow user の多い ML でも
白井> # 聞かせて下さい。 ^_^;;;
白井> # w32face.c の関連か所は "#ifdef MEADOW" ばっかで全然わかんない。

lisp/faces.el と見比べると以下が違っているのです。


--- 1.10/lisp/mw32faces.el.orig	Tue Feb 17 01:44:06 1998
+++ 1.10/lisp/mw32faces.el	Thu Mar 02 11:00:08 2000
@@ -773,7 +773,7 @@
       (set-face-stipple new-face
 			(face-stipple old-face frame)
 			new-frame)
-      (set-face-property-list new-face (face-property-list old-face frame)
+      (set-face-underline-p new-face (face-underline-p old-face frame)
 			      new-frame))
     new-face))
 
これで、UNIX の Emacs と同じになりませんか?
--
こせき @ Emacs のページ作成中
http://www.NetLaputa.ne.jp/~kose/Emacs/
kose@xxxxxxxxxxxxxxxxxx