[Date Prev][Date Next][Thread Prev][][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