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

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