       (easy-menu-define svn-status-actual-popup-menu nil nil
         (list name
                ["svn diff" svn-status-show-svn-diff t]
-               ["svn commit" svn-status-commit-file t]
+               ["svn commit" svn-status-commit t]
                ["svn log" svn-status-show-svn-log t]
                ["svn info" svn-status-info t]
                ["svn blame" svn-status-blame t]))

(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 ((svn-info nil))
    (dolist (overlay (overlays-at (point)))
      (setq svn-info (or svn-info
                         (overlay-get overlay 'svn-info))))
    svn-info))

(defun svn-status-get-file-list (use-marked-files)
  "Get either the marked files or the files, where the cursor is on."

  ;TODO: use file names also
  (svn-run-svn t t 'update "update"))

(defun svn-status-commit ()
  "Commit selected files.
See `svn-status-marked-files' for what counts as selected."
  (interactive)
