                 ((eq svn-process-cmd 'propdel)
                  (svn-status-update))))
       ;;(message (format "SVN Error: :%s:" event))
-      (svn-status-show-process-buffer t)))
+      (svn-status-show-process-buffer-internal t)))
 
 (defun svn-parse-status-result ()
   (setq svn-status-head-revision nil)

                 (svn-parse-status-result)
                 (svn-status-update-buffer))
                ((eq svn-process-cmd 'log)
                 (svn-status-show-process-buffer t)
                 (message "svn log finished"))
                ((eq svn-process-cmd 'info)
                 (svn-status-show-process-buffer t)
                 (message "svn info finished"))
;;                ((eq svn-process-cmd 'diff)
;;                 (svn-status-show-process-buffer 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-update)
                 (message "svn commit finished"))
                ((eq svn-process-cmd 'update)
                 (svn-status-show-process-buffer t)
                 (svn-status-update)
                 (message "svn update finished"))
                ((eq svn-process-cmd 'add)

  (svn-status-proplist-start))

(defun svn-status-property-parse-property-names ()
  ;(svn-status-show-process-buffer-internal t)
  (message "svn-status-property-parse-property-names")
  (let ((pl)
        (pfl)
