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

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>]

From: 小関 吉則 (KOSEKI Yoshinori) <kose@xxxxxxxxxxxxxxxxxx> さん曰く
Subject: [MD:1698]mw32faces.el - set-face-underline-p
Message-ID: <2000Mar02em9u5dif.kose_-_@xxxxxxxxxxxxxxxxxx>
Date: 02 Mar 2000 11:09:28 +0900

小関> 移動しますね。

らじゃ。

白井> 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 ではなくなるのです。

元のメール知らない人もいるので、ちょっと書いとくと italic だけで
なくて、bold とかもこうなります。

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

小関> Medow1.10 も同様でした。

う〜む。今までの集計結果。(敬称略、NG が italic で無くなる)

白井: Meadow 1.12b1  => NG
三好: Meadow 1.10    => NG
小関: Meadow 1.10    => NG
川手: Meadow 1.12b1  => OK
後藤: Meadow 1.12b1  => 無効票

です。川手さんだけ italic になりました。なぜだ(？)

## 最初、山口さんの linespace patch を疑ったんですけど、オリジナ
## ルの 1.12b1 でも NG でした。

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

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

小関> -      (set-face-property-list new-face (face-property-list old-face frame)
小関> +      (set-face-underline-p new-face (face-underline-p old-face frame)
 
小関> これで、UNIX の Emacs と同じになりませんか?

だめですね。新しく作る face からみんな italic, bold などの属性が
消えてしまいます。

# (copy-face 'italic 'zzz) => 'zzz は 'default に見える。

C の source で face 回りのうち underline だけは Meadow のとき、
別処理になっているし、C と el の関係もわかっていません。

## とりあえず、この症状を気付かせてくれた package には underline
## に nil を設定しないでね。とお願いしておきます。

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)