   (save-excursion
     (set-buffer svn-process-buffer-name)
     (let ((action)
-          (name)
+          (file-name)
           (skip)
           (result))
       (goto-char (point-min))

                (delete-region (point-min) (point-max))
              (goto-char (point-max)))
            (setq svn-process-cmd cmdtype)
            (setq svn-status-mode-line-process-status (format " running %s" cmdtype))
            (svn-status-update-mode-line)
            (sit-for 0.1)

  (interactive)
  (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-marked-files) "")
  (svn-run t t 'info "info" "--targets" svn-status-temp-arg-file))

(defun svn-status-info-for-path (path)
  "Run svn info on the given PATH.
Return some interesting parts of the resulting output.
At the moment a list containing the last changed author is returned."
  (let ((svn-process-buffer-name "*svn-info-output*")
        (last-changed-author))
    (svn-run nil t 'info "info" path)
    (with-current-buffer svn-process-buffer-name
      (goto-char (point-min))
      (when (search-forward "last changed author: " nil t)
        (setq last-changed-author (buffer-substring-no-properties (point) (svn-point-at-eol)))))
    (svn-status-message 7 "last-changed-author for '%s': %s" path last-changed-author)
    (list last-changed-author)))

(defun svn-status-blame (revision)
  "Run `svn blame' on the current file.
