         (find-file file-name-with-revision)
         (setq buffer-read-only nil)
         (delete-region (point-min) (point-max))
-        (svn-revision-normal-mode)
         (svn-run-svn nil t 'cat (append (list "cat" "-r" revision) (list file-name)))
         ;;todo: error processing
         ;;svn: Filesystem has no item

  "Strip the version info from a psvn revision file name."
  (string-match "\\(.+\\)\\.~.+~" name)
  (or (match-string-no-properties 1 name) name))

(defun svn-revision-normal-mode ()
  "Run normal-mode in a svn revision file."
  (interactive)
  (flet ((file-name-sans-versions
          (name &optional keep-backup-version)
          (svn-status-file-name-sans-versions name keep-backup-version)))
    (normal-mode)))


(condition-case nil
    ;;(easy-menu-add-item nil '("tools") ["SVN Status" svn-status t] "PCL-CVS")

      (svn-run-svn t t 'log "log" "--targets" svn-status-temp-arg-file))
    (save-excursion
      (set-buffer "*svn-process*")
      (svn-log-view-mode))))

(defun svn-status-info ()
  "Run `svn info' on all selected files.
