Emacsから外部プロセスを実行するときのコーディングシステムをカレントバッファに合わせる

調べもしないでちょこっと書いただけのものなので、まっとうな方法があったらぜひ教えてくださいませ。

プロジェクトによって、いろいろなコーディングシステムのファイルを扱うのですが、 gtags なんかを使った時に文字化けするんでカレントバッファのファイルコーディングシステムに合わせてしまうマクロ(defadviceするだけ)を書いてみました。

(defmacro my-adapt-coding-system-with-current-buffer (target-function)
  `(defadvice ,target-function
     (around my-adapt-coding-system-with-current-buffer activate)
     (let ((coding-system-for-read buffer-file-coding-system)
	   (coding-system-for-write buffer-file-coding-system)
	   (coding-system-require-warning t))
       ad-do-it)))

(my-adapt-coding-system-with-current-buffer gtags-find-tag)
(my-adapt-coding-system-with-current-buffer gtags-find-with-idutils)
(my-adapt-coding-system-with-current-buffer gtags-find-with-grep)