   (svn-status default-directory arg))
 
 (defun svn-status-get-line-information ()
+  "Find out about the file under point.
+The result may be parsed with the various `svn-status-line-info->...' functions."
   (let ((overlay (car (overlays-at (point)))))
     (when overlay
       (overlay-get overlay 'svn-info))))

  (svn-status-show-process-buffer-internal))

(defun svn-status-add-file ()
  (interactive)
  (message "adding: %S" (svn-status-marked-file-names))
  (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-marked-files) "")
  (svn-run-svn t t 'add "add" "--targets" svn-status-temp-arg-file))

(defun svn-status-make-directory (dir)
  "Run `svn add DIR'."
  ;; TODO: Allow entering a URI interactively.
  ;; Currently, `read-file-name' corrupts it.
  (interactive (list (read-file-name
                      "Make directory: "
                      ;;the `or' below is because s-s-g-l-i returns `nil' if
                      ;;point was outside the file list, but we need
                      ;;s-s-l-i->f to return a string to add to `default-directory'.
                      (concat default-directory
                              (file-name-directory
                               (svn-status-line-info->filename
                                (or (svn-status-get-line-information)
                                    '(nil nil nil ""))))))))
  (unless (string-match "^[^:/]+://" dir) ; Is it a URI?
    (setq dir (file-relative-name dir)))
  (svn-run-svn t t 'mkdir "mkdir" "--" dir))

(defun svn-status-revert-file ()
  (interactive)
  (let* ((marked-files (svn-status-marked-files))
         (num-of-files (length marked-files)))
    (if (= 0 num-of-files)
        (message "No file selected for reverting!")
      (when (yes-or-no-p (if (= 1 num-of-files)

                  last-change-rev -1
                  author "?"))
           (t
            (error "Unknown status line format")))
          (unless path (setq path "."))
          (setq user-mark (not (not (member path old-marked-files))))
          (setq svn-status-info (cons (list user-mark
