# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1004416378 0
# Node ID 4d0323a1ed72b6123d68e70c3ab5b1d08b98c3eb
# Parent  a56267e601e4b017f165ed06de5ce3e81e302c9e
(log-edit): Run hook after `log-edit-files'.

diff -r a56267e601e4 -r 4d0323a1ed72 lisp/log-edit.el
--- a/lisp/log-edit.el	Tue Oct 30 03:44:08 2001 +0000
+++ b/lisp/log-edit.el	Tue Oct 30 04:32:58 2001 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: pcl-cvs cvs commit log
-;; Revision: $Id: log-edit.el,v 1.15 2001/03/07 00:26:25 monnier Exp $
+;; Revision: $Id: log-edit.el,v 1.16 2001/05/11 20:42:58 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -188,9 +188,9 @@
     (set (make-local-variable 'log-edit-callback) callback)
     (set (make-local-variable 'log-edit-listfun) listfun)
     (if buffer (set (make-local-variable 'log-edit-parent-buffer) parent))
+    (set (make-local-variable 'log-edit-initial-files) (log-edit-files))
     (when setup (run-hooks 'log-edit-hook))
     (goto-char (point-min)) (push-mark (point-max))
-    (set (make-local-variable 'log-edit-initial-files) (log-edit-files))
     (message (substitute-command-keys
 	      "Press \\[log-edit-done] when you are done editing."))))