   (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*")

  "*List of operations after which all user marks will be removed.
Possible values are: commit, revert.")

(defvar svn-status-svn-executable "svn" "*The name of the svn executable.")

(defvar svn-status-svn-environment-var-list nil

                  (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)
