   (svn-run-svn t t 'update "update"))
 
 (defun svn-status-commit-file ()
+  "Commit selected files.
+See `svn-status-marked-files' for what counts as selected."
   (interactive)
   (let* ((marked-files (svn-status-marked-files)))
     (setq svn-status-files-to-commit marked-files)

        (buffer-read-only nil)
        (start-pos)
        (overlay)
        (unmodified-count 0)
        (unknown-count 0)
        (marked-count 0)
        (fname (svn-status-line-info->filename (svn-status-get-line-information)))
        (fname-pos (point))
        (column (current-column)))

            ;; from the svn output
            (search-forward "/" nil t))
          (setq name (buffer-substring-no-properties (point) (point-at-eol)))
          (setq result (cons (list name action)
                             result))
          (setq skip nil))
