                       event)))
           (t
            (message "svn process had unknown event: %s" event))
-          (svn-status-show-process-buffer-internal t))))
+          (svn-status-show-process-output nil t))))
 
 (defun svn-process-filter (process str)
   (save-window-excursion

    (setq buffer-read-only t)))

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

(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-output 'update t)
                  (svn-status-update)
                  (message "svn update finished"))
                 ((eq svn-process-cmd 'add)
