Re: Meadow-1.15 の defface

[塩野＠遊び人 <jun@xxxxxxxxxxxxxxxx>]

こんにちは、塩野＠遊び人です。

>>>>> In [meadow-users-jp : No.4362] 
>>>>>	Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxx> wrote:
白井> 上記の様に :underline で色をつけられるのは Emacs-21 からです。
白井> それ以前の手持ちの Emacs をサクッと調べたところ、

白井> (UNIX の) Emacs 20.7 => "red" という文字列は non-nil(t) として扱っ
白井> ているようだ。underline がつく。
白井> Meadow 1.15 => nil か t の指定しか許していない。
白井> となりました。

なるほどそういうことだったんですか。

白井> というわけで、Meadow 1.x 以外はエラーにならないので、semantic に
白井> 文句をいうのも辛いところなので、XEmacs ではだめですが、

あぁ…、勇み足で報告してしまいました。舌の根も乾かない内にごめん
なさいメールだしまた。(^^;;;

白井> (when (and (featurep 'meadow) (eq emacs-major-version 20))
白井>   (defadvice internal-set-face-property (before face-underline activate)
白井>     (when (and (eq property 'underline)
白井> 	       value (stringp value))
白井>       (setq value t))))
白井> でどうでしょうか。

上記の設定を .emacs に書いてエラーが出なくなったのを確認しました。
list-face-display で表示指させたところ、underline がついているの
も確認しました。

どうも、ありがとうございました。
--
                             ∧_∧
                            ミ^.^ミ E-Mail: jun@xxxxxxxxxxxxxxxx
・タカナシの親の法則
 １．お金のことになると、「人は人、うちはうち」という。
 ２．勉強のことになると、人と比べる。