         (svn-run-svn t t 'rm "rm" "--targets" svn-status-temp-arg-file)))))
 
 (defun svn-status-update-cmd ()
-  (interactive)
+  "Run svn update."
+  (interactive)
+  (message "Running svn-update for %s" default-directory)
   ;TODO: use file names also
   (svn-run-svn t t 'update "update"))
 

(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)
  ;;(define-key svn-global-keymap (kbd "c") 'svn-status-commit-file))

    (save-excursion
      (set-buffer "*svn-process*")
      (goto-char (point-min))
      (let ((case-fold-search t))
        (search-forward "url: "))
      (setq url (buffer-substring-no-properties (point) (point-at-eol))))
    (setq svn-status-base-info `((url ,url)))))

