[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: kill-new
に第三引数が追加された
At Tue, 21 Jan 2003 19:43:00 +0900,
Katsumi Yamaoka <yamaoka@jpl.org> wrote:
> こんなんで良いのでしょうか?
>
> (let (current-load-list)
> (defadvice kill-new (before strip-keymap-properties-from-kill activate)
> "Advised by emacs-w3m.
> Strip `keymap' or `local-map' properties from a killed string."
> (if (text-property-any 0 (length (ad-get-arg 0))
> 'text-rendered-by-mime-w3m t (ad-get-arg 0))
> (remove-text-properties 0 (length (ad-get-arg 0))
> '(keymap nil local-map nil)
> (ad-get-arg 0)))))
>
> ;; エレガントかどうかを論ずる以前の内容ですけれど。:-p
なぁるほど、引数を明示的に書かずに ad-get-arg で取り出すわけですね。
流石、山岡さん。
--
中島幹夫 <minakaji@osaka.email.ne.jp>
http://www.asahi-net.or.jp/~gy2m-nkjm