 (put 'svn-global-keymap 'risky-local-variable t)
 (when (not svn-global-keymap)
   (setq svn-global-keymap (make-sparse-keymap))
+  (define-key svn-global-keymap (kbd "v") 'svn-status-version)
   (define-key svn-global-keymap (kbd "s") 'svn-status-this-directory)
   (define-key svn-global-keymap (kbd "l") 'svn-status-show-svn-log)
   (define-key svn-global-keymap (kbd "u") 'svn-status-update-cmd)

          (when (eq svn-status-edit-svn-command t)
            (svn-status-toggle-edit-cmd-flag t))
          (message "svn-run %s: %S" cmdtype arglist))
        (unless (eq mode-line-process 'svn-status-mode-line-process)
          (setq svn-pre-run-mode-line-process mode-line-process)
          (setq mode-line-process 'svn-status-mode-line-process))

      (set-buffer "*svn-process*")
      (svn-log-view-mode))))

(defun svn-status-version ()
  "Show the version numbers for the svn command line client and for psvn.el"
  (interactive)
  (svn-run nil t 'version "--version")
  (svn-status-show-process-output 'info t)
  (with-current-buffer svn-status-last-output-buffer-name
    (goto-char (point-min))
    (insert (format "psvn.el revision: %s\n\n" svn-psvn-revision))))

(defun svn-status-info ()
  "Run `svn info' on all selected files.
See `svn-status-marked-files' for what counts as selected."
