                 ((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-run-svn nil clear-buf 'diff "diff" (svn-status-line-info->filename (car fl)))
      (setq clear-buf nil)
      (setq fl (cdr fl))))
  (svn-status-show-process-buffer t)
  (save-excursion
    (set-buffer "*svn-process*")
    (diff-mode)
    (font-lock-fontify-buffer)))

(defun svn-status-add-file ()
  (interactive)

  (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)
