Re: [mime-w3m] local-map

[Katsumi Yamaoka <yamaoka@xxxxxxx>]

>>>>> In [emacs-w3m : No.01637]
>>>>>	TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> wrote:

土屋さん> ;; できないと言われると、やってみたくなる困った性格。

土屋さん> こんなのでどうでしょう?

土屋さん> (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)))))))

ううーむ、土屋さん頭いいなあ。
ad に食わせるオリジナルの関数に細工してしまうわけですね。その細
工した関数は lamda 式じゃなくても構わない? ... そうか、構わない
のかあ。いやはや感服いたしました。

ところで、

山> まあ interactive spec が "r" だけならできそうな気がしますが、
山> "p\nr" とかにも対応することを考えると気が遠くなりそうです。

と書きましたが、そんなことはちょっと考えれば問題ではありません。
むしろぼくが余計な心配をしていたのは interactive spec の対象外の
optional arg だったんですが、よく考えればそれも問題ではありませ
ん。

土屋さん、advice を使わない同じ案を M-x report-emacs-bug してみ
ませんか?
-- 
Katsumi Yamaoka <yamaoka@jpl.org>