                     (set-window-configuration svn-status-initial-window-configuration)
                     (switch-to-buffer "*svn-status*")))
                  ((eq svn-process-cmd 'log)
-                  (svn-status-show-process-buffer-internal t)
-                  (pop-to-buffer "*svn-process*")
-                  (switch-to-buffer (get-buffer-create "*svn-log*"))
-                  (let ((buffer-read-only nil))
-                    (delete-region (point-min) (point-max))
-                    (insert-buffer-substring "*svn-process*"))
+                  (svn-status-show-process-output 'log t)
+                  (pop-to-buffer svn-status-last-output-buffer-name)
                   (svn-log-view-mode)
-                  (goto-char (point-min))
                   (forward-line 3)
                   (font-lock-fontify-buffer)
                   (message "svn log finished"))
                  ((eq svn-process-cmd 'info)
-                  (svn-status-show-process-buffer-internal t)
+                  (svn-status-show-process-output 'info t)
                   (message "svn info finished"))
                  ((eq svn-process-cmd 'parse-info)
                   (svn-status-parse-info-result))
                  ((eq svn-process-cmd 'blame)
-                  (svn-status-show-process-buffer-internal t)
+                  (svn-status-show-process-output 'blame t)
                   (message "svn blame finished"))
                  ((eq svn-process-cmd 'commit)
                   (svn-process-sentinel-fixup-path-seperators)


(defun svn-status-diff-mode ()
  "Show the *svn-process* buffer, using the diff-mode."
  (svn-status-show-process-buffer-internal t)
  (save-excursion
    (set-buffer "*svn-process*")
    (diff-mode)
    (font-lock-fontify-buffer)))

(defun svn-status-show-process-buffer ()
  (interactive)

                 ((eq svn-process-cmd 'cleanup)
                  (message "svn cleanup finished"))
                 ((eq svn-process-cmd 'proplist)
                  (svn-status-show-process-output 'proplist t)
                  (message "svn proplist finished"))
                 ((eq svn-process-cmd 'proplist-parse)
                  (svn-status-property-parse-property-names))
