           (if (boundp var)
               (global-unset-key (symbol-value var)))
           (set var value)
-          (global-set-key (symbol-value var) svn-global-keymap)))
+          (global-set-key (symbol-value var) 'svn-global-keymap)))
 
 ;; Use the normally used mode for files ending in .~HEAD~, .~BASE~, ...
 (add-to-list 'auto-mode-alist '("\\.~?\\(HEAD\\|BASE\\|PREV\\)~?\\'" ignore t))

  ;;(define-key svn-global-keymap (kbd "=") 'svn-status-show-svn-diff)
  ;;(define-key svn-global-keymap (kbd "c") 'svn-status-commit-file))

(when svn-status-prefix-key
  (global-set-key svn-status-prefix-key svn-global-keymap))


(defun svn-status-message (level &rest args)

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

(defvar svn-global-keymap nil "Global keymap for psvn.el.
To bind this to a different key, customize `svn-status-prefix-key'.")
(when (not svn-global-keymap)
  (setq svn-global-keymap (make-sparse-keymap))
  (define-key svn-global-keymap (kbd "s") 'svn-status-this-directory)
