set-extent-properties (Re: wl-2.2.17

[Daiki Ueno]

>>>>> [Wanderlust : No.04009] にて
>>>>>    "WL Release 'Bot" <teranisi ＠ gohome.org> 様曰く...

> 2000-02-07  Daiki Ueno <ueno ＠ ueda.info.waseda.ac.jp>

> 	* wl-folder.el, wl-xmas.el: -nw で起動された XEmacs で frame を
> 	開いた場合でもアイコンが表示されるようにした。

すみません、wl-highlight-folder-current-line と
wl-highlight-plugged-current-line の二箇所で set-extent-properties
を使ってしまっています。

;; 確か、XEmacs 20.4 にはなかったような気がします。

以下のようなものを APEL に入れてしまいたいと思うのですが、
よろしいでしょうか？

(defun-maybe set-extent-properties (extent plist)
  "Change some properties of EXTENT.
PLIST is a property list.
For a list of built-in properties, see `set-extent-property'."
  (while plist
    (set-extent-property extent (car plist) (cadr plist))
    (setq plist (cddr plist))))

取り急ぎ、WL 側では、以下のように展開すれば OK だと思います。

-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: wl-xmas.el.diff
型:         application/octet-stream
サイズ:     1133 バイト
説明:       無し
URL:        <http://lists.chise.org/pipermail/apel-ja/attachments/20000207/1bf42544/attachment-0001.obj>
-------------- next part --------------
-- 
Daiki Ueno