   "Parse the output of svn commit.
 Return a list that is suitable for `svn-status-update-with-command-list'"
   (save-excursion
-    (set-buffer "*svn-process*")
+    (set-buffer svn-process-buffer-name)
     (let ((action)
           (name)
           (skip)

         ((eq original-filemarks 63) ;original is unversioned: use fallback
          (if (yes-or-no-p (format "%s is unversioned.  Use `%s -i -- %s %s'? "
                                   original-name fallback original-name dest))
              (call-process fallback nil (get-buffer-create "*svn-process*") nil
                            "-i" "--" original-name dest)
            ;;new files created by fallback are not in *svn-status* now,
            ;;TODO: so call (svn-status-update) here?

    (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-marked-files) "")
    (svn-run t t 'log "log" "--targets" svn-status-temp-arg-file switches)
    (save-excursion
      (set-buffer svn-process-buffer-name)
      (svn-log-view-mode))))

(defun svn-status-version ()
