     (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."

      (svn-run-svn nil clear-buf 'diff "diff" "-r" revision (svn-status-line-info->filename (car fl)))
      (setq clear-buf nil)
      (setq fl (cdr fl))))
  (svn-status-show-process-buffer-internal t)
  (save-excursion
    (set-buffer "*svn-process*")

                                  svn-status-files-to-commit "")
      (setq svn-status-files-to-commit nil)
      (svn-run-svn t t 'commit "commit" "--targets" svn-status-temp-arg-file
                   "-F" svn-status-temp-file-to-remove)
      (run-hooks 'svn-log-edit-done-hook))
    (set-window-configuration svn-status-pre-commit-window-configuration)
    (message "svn-log editing done")))

(defun svn-log-edit-svn-diff (arg)
  "Show the diff we are about to commit.
