                  (svn-parse-status-result)
                  (svn-status-update-buffer))
                 ((eq svn-process-cmd 'log)
-                 (svn-status-show-process-buffer t)
+                 (svn-status-show-process-buffer-internal t)
                  (message "svn log finished"))
                 ((eq svn-process-cmd 'info)
-                 (svn-status-show-process-buffer t)
+                 (svn-status-show-process-buffer-internal t)
                  (message "svn info finished"))
 ;;                ((eq svn-process-cmd 'diff)
-;;                 (svn-status-show-process-buffer t)
+;;                 (svn-status-show-process-buffer-internal t)
 ;;                 (save-excursion
 ;;                   (set-buffer "*svn-process*")
 ;;                   (diff-mode)
 ;;                   (font-lock-fontify-buffer))
 ;;                 (message "svn diff finished"))
                 ((eq svn-process-cmd 'commit)
-                 (svn-status-show-process-buffer t)
+                 (svn-status-show-process-buffer-internal t)
                  (svn-status-update)
                  (message "svn commit finished"))
                 ((eq svn-process-cmd 'update)
-                 (svn-status-show-process-buffer t)
+                 (svn-status-show-process-buffer-internal t)
                  (svn-status-update)
                  (message "svn update finished"))
                 ((eq svn-process-cmd 'add)

				'local-map keymap)))
		 str))
  str)


(defun svn-status (dir &optional arg)

(defvar svn-status-hide-unmodified nil "Hide unmodified files in *cvs-status* buffer.")
(defvar svn-status-directory-history nil "List of visited svn working directories.")

(require 'overlay nil t)

;; internal variables
(defvar svn-process-cmd nil)
