[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [mime-w3m] local-map
>> On Wed, 03 Oct 2001 20:12:22 +0900
>> 「山」== yamaoka@jpl.org (Katsumi Yamaoka) said as follows:
土> その advice 定義を生成している関数に advice を定義する、とい
土> うのはどうでしょうね?
山> うひゃ〜、究極の暇潰しネタになりそうですね。:-p
山> まあ interactive spec が "r" だけならできそうな気がしますが、
山> "p\nr" とかにも対応することを考えると気が遠くなりそうです。
;; できないと言われると、やってみたくなる困った性格。
こんなのでどうでしょう?
(defadvice ad-assemble-advised-definition
(before interactive-call-fix-advice activate)
(if (commandp (car (ad-get-arg 4)))
(ad-set-arg 4 (` (if (interactive-p)
(call-interactively
(quote (, (car (ad-get-arg 4)))))
(, (ad-get-arg 4)))))))
--
土屋 雅稔 ( TSUCHIYA Masatoshi )