 (defun svn-status-show-process-output (cmd &optional scroll-to-top)
   "Display the result of a svn command.
 Consider svn-status-window-alist to choose the buffer name."
-  (let ((window-mode (cadr (assoc cmd svn-status-window-alist))))
+  (let ((window-mode (cadr (assoc cmd svn-status-window-alist)))
+        (process-default-directory))
     (cond ((eq window-mode nil) ;; use *svn-process* buffer
            (setq svn-status-last-output-buffer-name svn-process-buffer-name))
           ((eq window-mode t) ;; use *svn-info* buffer

    (re-search-backward "^r\\([0-9]+\\)")
    (svn-match-string-no-properties 1)))

(defun svn-log-file-name-at-point ()
  (save-excursion
    (beginning-of-line)
    (when (looking-at "   M /\\(.+\\)$")
      (svn-match-string-no-properties 1))))

(defun svn-log-find-file-at-point ()
  (interactive)
  (let ((file-name (svn-log-file-name-at-point)))
    (when file-name
      (let ((default-directory (svn-status-base-dir)))
        (find-file file-name)))))

(defun svn-log-view-diff (arg)

    (when svn-status-branch-list
      (insert (format "Branches: %s\n" svn-status-branch-list)))
    (when svn-status-base-info
      (insert (concat "Repository Root: " (svn-status-base-info->repository-root) "\n"))
      (insert (concat "Repository Url:  " (svn-status-base-info->url) "\n")))
    (when svn-status-hide-unknown
      (insert
       (format "%d Unknown file(s) are hidden - press `?' to toggle hiding\n"
