   "*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 (member 'commit svn-status-unmark-files-after-list)
                    (svn-status-unset-all-usermarks))
                  (svn-status-update-with-command-list (svn-status-parse-commit-output))
                  (run-hooks 'svn-log-edit-done-hook)
                  (setq svn-status-files-to-commit nil)
                  (message "svn commit finished"))
                 ((eq svn-process-cmd 'update)
                  (svn-status-show-process-buffer-internal t)
