流れと関係なくてすみませんが、質問です。

以下は Subversionクライアント dsvn.el の関数の一つです。サーバのロケー
ルがEUC-JPなので、自分で一行改変しました。これを、関数そのものの改変で
はなく、defadvice で解決することはできないでしょうか？

初歩的ですみませんが、どうかお願いします。

(defun svn-call-process (program buffer &rest args)
  "Run svn and wait for it to finish.
Argument PROGRAM is the svn binary to run.
Argument BUFFER is the buffer in which to insert output.
Optional argument ARGS are the arguments to svn."
  (let ((proc (apply 'start-process "svn" buffer program args)))
;;     (set-process-coding-system proc 'utf-8) <- ココ
    (set-process-coding-system proc 'euc-jp)
    (set-process-filter proc 'svn-output-filter)
    (while (eq (process-status proc) 'run)
      (accept-process-output proc 5)
      (sit-for 0))))