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

[Miyashita Hisashi(宮下 尚:HIMI) <himi@xxxxxxxxxxxxxxxxxxxxxxxxx>]

Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx> writes:

> 白井> dispextern.h の
> himi> FACE_PROPERTY_MERGEあたりの処理で引っかかっているのかな。
> 白井> 周辺が要注意。
> 
> ではなくて、mw32faces.el の face-property-put() が悪さをしていま
> した。

わわわ。そういえば、これ、set-face-property関連で
仕様変更したからかしら。

> の部分で、他の属性をすべて nil にしてしまいます。本当は、
> 
> (face-property-put '(bold t underline t font-explicit-p t) 'underline nil)
> => (bold t font-explicit-p t)
> 
> ですよね。

そうですね。

> elisp なら何とかなるぞ、と思い直そうと思ったのですが、
> face-property-put() 内部の 'string<' の部分の意味が理解できない
> ので、パッチは作れませんでした。 > どなたかよろしく ^^;;;

これは、sortされたplistでなくてはいけないので(equalできるようにするため)
順番どおりに挿入することになっているためです。今回の場合は、
ただ単に、 (if (null val) block をとってしまえばよいんじゃないかしら。

from himi