       (require 'overlay)
     (require 'overlay nil t)))
 
-
+(defvar svn-global-keymap nil "Global keymap for psvn.el")
 (defcustom svn-status-prefix-key [(control x) (meta s)]
   "Prefix key for the psvn commands in the global keymap."
   :type '(choice (const [(control x) ?v ?S])

        (setq default-directory dir
              svn-status-remote (when arg t))
        (svn-run-svn t t 'status "status" status-option)))))

(defun svn-status-use-history ()
  (interactive)

  (defsubst match-string-no-properties (match)
    (buffer-substring-no-properties (match-beginning match) (match-end match))))

(when (not svn-global-keymap)
  (setq svn-global-keymap (make-sparse-keymap))
  (define-key svn-global-keymap (kbd "s") 'svn-status-this-directory)
  (define-key svn-global-keymap (kbd "l") 'svn-status-show-svn-log))
  ;; TODO: make the following work
  ;;(define-key svn-global-keymap (kbd "=") 'svn-status-show-svn-diff)
