     (setq buffer-read-only t)))
 
 (defun svn-status-show-process-buffer ()
-  (interactive)
-  (svn-status-show-process-buffer-internal))
+  "Show the content of the *svn-process* buffer"
+  (interactive)
+  (svn-status-show-process-output nil))
 
 (defun svn-status-add-file-recursively (arg)
   "Run `svn add' on all selected files.

                  (setq svn-status-files-to-commit nil)
                  (message "svn commit finished"))
                 ((eq svn-process-cmd 'update)
                  (svn-status-show-process-buffer-internal t)
                  (svn-status-update)
                  (message "svn update finished"))
                 ((eq svn-process-cmd 'add)

                      event)))
          (t
           (message "svn process had unknown event: %s" event))
          (svn-status-show-process-output nil t))))

(defun svn-process-filter (process str)
  (save-window-excursion
