     (when arg
       (setq rev-arg (read-string "Revision for changeset: " rev-arg)))
     (svn-run-svn nil t 'diff "diff" (concat "-r" rev-arg))
-    (svn-status-show-process-buffer-internal t)
-    (save-excursion
-      (set-buffer "*svn-process*")
-      (diff-mode)
-      (font-lock-fontify-buffer))))
+    (svn-status-diff-mode)))
 
 (defun svn-log-edit-log-entry ()
   "Edit the given log entry."


;;; hooks
(defvar svn-log-edit-mode-hook nil "Hook run when entering `svn-log-edit-mode'.")

(defvar svn-status-wash-control-M-in-process-buffers
  (eq system-type 'windows-nt)


(defun svn-log-edit-done ()
  (interactive)
  (save-excursion
    (set-buffer (get-buffer "*svn-log-edit*"))
    (when svn-log-edit-insert-files-to-commit
