       (insert
        (format "%d Unmodified files are hidden - press _ to toggle hiding\n"
                unmodified-count)))
+    (insert (format "%d files marked\n" marked-count))
     (if fname
         (progn
           (svn-status-goto-file-name fname)
           (goto-char (+ column (point-at-bol))))
       (goto-char (+ (next-overlay-change (point-min)) svn-status-default-column)))))
 
-(defun svn-status-parse-info ()
-  (svn-run-svn t t 'parse-info "info" "."))
+(defun svn-status-parse-info (arg)
+  "Parse the svn info output for the base directory.
+Show the repository url after this call in the *svn-status* buffer.
+When called with the prefix argument 0, reset the information to nil.
+This hides the repository information again."
+  (interactive "P")
+  (if (eq arg 0)
+      (setq svn-status-base-info nil)
+    (svn-run-svn nil t 'parse-info "info" ".")
+    (svn-status-parse-info-result))
+  (svn-status-update-buffer))
 
 (defun svn-status-parse-info-result ()
   (let ((url))

      (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)))

(defun svn-status-base-info->url ()
  (if svn-status-base-info

             (setq unmodified-count (+ unmodified-count 1)))
            (t
             (svn-insert-line-in-status-buffer (car st-info))))
      (when (svn-status-line-info->has-usermark (car st-info))
        (setq marked-count (+ marked-count 1)))
      (setq overlay (make-overlay start-pos (point)))
      (overlay-put overlay 'svn-info (car st-info))
      (setq st-info (cdr st-info)))
