emacs - 対話型関数をアドバイスでオーバーライドする

Question

defadviceelispで インタラクティブ入力をオーバーライドするにはどうすればよいですか?

たとえばansi-term、次のように入力を求めるプロンプトを停止しようとしています。

(defadvice ansi-term (around kill-interactive activate)
  (let ((explicit-shell-file-name "/bin/bash"))
    (ad-set-arg 0 explicit-shell-file-name)
    (deactivate-input-method)
    ad-do-it))

explicit-shell-file-nameただし、正しく設定されていてもプロンプトが表示されます。