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