 
 See `svn-status-message' for the meaning of values for that variable.")
 
+(defvar svn-bookmark-list "A list of locations for a quick access via `svn-status-via-bookmark'" nil)
+;;(setq svn-bookmark-list '(("proj1" . "~/work/proj1")
+;;                          ("doc1" . "~/docs/doc1")))
+
 (defvar svn-status-buffer-name "*svn-status*" "Name for the svn status buffer")
 (defvar svn-process-buffer-name "*svn-process*" "Name for the svn process buffer")
 (defvar svn-log-edit-buffer-name "*svn-log-edit*" "Name for the svn log-edit buffer")

  (interactive)
  (pop-to-buffer svn-status-buffer-name))

(defun svn-status-export ()
  "Run `svn export' for the current working copy.
Ask the user for the destination path.

  (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 "b") 'svn-status-via-bookmark)
  (define-key svn-global-keymap (kbd "u") 'svn-status-update-cmd)
  (define-key svn-global-keymap (kbd "l") 'svn-status-show-svn-log)
  (define-key svn-global-keymap (kbd "=") 'svn-status-show-svn-diff)
