[emacs-w3m:04576] Re: kill-new に第三引数が追加された

At Tue, 21 Jan 2003 19:43:00 +0900,
Katsumi Yamaoka <yamaoka@xxxxxxx> 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@xxxxxxxxxxxxxxxxx>
http://www.asahi-net.or.jp/~gy2m-nkjm