   "*List of operations after which all user marks will be removed.
 Possible values are: commit, revert.")
 
+(defvar svn-status-negate-meaning-of-arg-commands nil
+  "*List of operations that sould use a negated meaning of the prefix argument.
+The only possible function at the moment is svn-status-update.")
+
 (defvar svn-status-svn-executable "svn" "*The name of the svn executable.")
 
 (defvar svn-status-svn-environment-var-list nil

      (svn-status-create-arg-file svn-status-temp-arg-file ""
                                  svn-status-files-to-commit "")
      (svn-run-svn t t 'commit "commit" "--targets" svn-status-temp-arg-file
                   "-F" svn-status-temp-file-to-remove)
      (run-hooks 'svn-log-edit-done-hook)
      (setq svn-status-files-to-commit nil))
    (set-window-configuration svn-status-pre-commit-window-configuration)
    (message "svn-log editing done")))


  (when (svn-status-get-line-information)
    (goto-char (+ (point-at-bol) svn-status-default-column))))

(defun svn-status-possibly-negate-meaning-of-arg (arg)
  "Negate arg, if this-command is a member of svn-status-possibly-negate-meaning-of-arg."
  (if (member this-command svn-status-negate-meaning-of-arg-commands)
      (not arg)
    arg))

(defun svn-status-update (&optional arg)
  "Run 'svn status -v'.
When called with a prefix argument run 'svn status -vu'."
  (interactive "P")
  (setq arg (svn-status-possibly-negate-meaning-of-arg arg))
  (unless (interactive-p)
    (save-excursion
      (set-buffer "*svn-process*")
