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

    (goto-char (point-min)))
  (other-window 1))

(defun svn-status-show-svn-log (arg)
  "Run `svn log' on selected files.
The output is put into the *svn-log* buffer


(defun svn-status-diff-mode ()
  "Show the *svn-process* buffer, using the diff-mode."
  (svn-status-show-process-output 'diff t)
  (save-excursion
    (set-buffer svn-status-last-output-buffer-name)
    (diff-mode)
    (font-lock-fontify-buffer)
    (setq buffer-read-only t)))

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