           (current-window-configuration)))
   (let* ((cur-buf (current-buffer))
          (status-buf (get-buffer-create svn-status-buffer-name))
-         (proc-buf (get-buffer-create "*svn-process*"))
+         (proc-buf (get-buffer-create svn-process-buffer-name))
          (want-edit (eq arg '-))
          (status-option (if want-edit
                             (if svn-status-verbose "-v" "")


(defun svn-process-filter (process str)
  (save-window-excursion
    (set-buffer "*svn-process*")
    ;;(message "svn-process-filter: %s" str)
    (goto-char (point-max))
    (insert str)

      ;; expects the output to be left in the *svn-process* buffer.
      (unless recursive
        ;; Check `directory-p' relative to the `default-directory' of the
        ;; "*svn-status*" buffer, not that of the svn-process-buffer-name buffer.
        (let ((directory-p (svn-status-line-info->directory-p line-info)))
          (with-current-buffer svn-process-buffer-name
            (when directory-p
              (goto-char (or beginning (point-min)))
              (when (re-search-forward "^Index: " nil t)
