       (goto-char (point-min))
       (search-forward "Url: ")
       (setq url (buffer-substring-no-properties (point) (point-at-eol))))
-    (setq svn-status-base-info `((url ,url))))
-  (message "%S" (svn-status-base-info->url)))
+    (setq svn-status-base-info `((url ,url)))))
 
 (defun svn-status-base-info->url ()
   (if svn-status-base-info

  (define-key svn-status-mode-map "\M-DEL" 'svn-status-unset-all-user-mark)
  (define-key svn-status-mode-map [(backspace)] 'svn-status-unset-user-mark-backwards)
  (define-key svn-status-mode-map [?.] 'svn-status-goto-root-or-return)
  (define-key svn-status-mode-map [??] 'svn-status-toggle-hide-unknown)
  (define-key svn-status-mode-map [?_] 'svn-status-toggle-hide-unmodified)
  (define-key svn-status-mode-map [?a] 'svn-status-add-file)

  .     - svn-status-goto-root-or-return
  f     - svn-status-find-file
  o     - svn-status-find-file-other-window
  I     - svn-status-parse-info
  P l   - svn-status-property-list
  P s   - svn-status-property-set
  P d   - svn-status-property-delete
