                                   svn-status-files-to-commit "")
       (setq svn-status-files-to-commit nil)
       (svn-run-svn t t 'commit "commit" "--targets" svn-status-temp-arg-file
-                   "-F" svn-status-temp-file-to-remove)))
-    (set-window-configuration svn-status-pre-commit-window-configuration))
+                   "-F" svn-status-temp-file-to-remove)
+      (run-hooks 'svn-log-edit-done-hook))
+    (set-window-configuration svn-status-pre-commit-window-configuration)
+    (message "svn-log editing done")))
 
 (defun svn-log-edit-svn-diff (arg)
   "Show the diff we are about to commit.


(defun svn-log-edit-done ()
  (interactive)
  (message "svn-log editing done")
  (save-excursion
    (set-buffer (get-buffer "*svn-log-edit*"))
    (when svn-log-edit-insert-files-to-commit

      (svn-run-svn nil clear-buf 'diff "diff" "-r" revision (svn-status-line-info->filename (car fl)))
      (setq clear-buf nil)
      (setq fl (cdr fl))))
  (svn-status-diff-mode))

(defun svn-status-diff-mode ()
  "Show the *svn-process* buffer, using the diff-mode."
  (svn-status-show-process-buffer-internal t)
  (save-excursion
    (set-buffer "*svn-process*")
