aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2001-10-30 04:32:58 +0000
committerStefan Monnier2001-10-30 04:32:58 +0000
commit70c2a4848d675f47b6ee228bf4d99bcc4815713d (patch)
tree32358cac3277e5c56b1bac6ba366b67770df27b1
parentcc45fb4031a234b9c99549e54c4b0612af3d28cd (diff)
downloademacs-70c2a4848d675f47b6ee228bf4d99bcc4815713d.tar.gz
emacs-70c2a4848d675f47b6ee228bf4d99bcc4815713d.zip
(log-edit): Run hook after `log-edit-files'.
-rw-r--r--lisp/log-edit.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/log-edit.el b/lisp/log-edit.el
index 6a4b316e8e1..54cf34c7be9 100644
--- a/lisp/log-edit.el
+++ b/lisp/log-edit.el
@@ -4,7 +4,7 @@
4 4
5;; Author: Stefan Monnier <monnier@cs.yale.edu> 5;; Author: Stefan Monnier <monnier@cs.yale.edu>
6;; Keywords: pcl-cvs cvs commit log 6;; Keywords: pcl-cvs cvs commit log
7;; Revision: $Id: log-edit.el,v 1.15 2001/03/07 00:26:25 monnier Exp $ 7;; Revision: $Id: log-edit.el,v 1.16 2001/05/11 20:42:58 monnier Exp $
8 8
9;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
10 10
@@ -188,9 +188,9 @@ If BUFFER is non-nil `log-edit' will jump to that buffer, use it to edit the
188 (set (make-local-variable 'log-edit-callback) callback) 188 (set (make-local-variable 'log-edit-callback) callback)
189 (set (make-local-variable 'log-edit-listfun) listfun) 189 (set (make-local-variable 'log-edit-listfun) listfun)
190 (if buffer (set (make-local-variable 'log-edit-parent-buffer) parent)) 190 (if buffer (set (make-local-variable 'log-edit-parent-buffer) parent))
191 (set (make-local-variable 'log-edit-initial-files) (log-edit-files))
191 (when setup (run-hooks 'log-edit-hook)) 192 (when setup (run-hooks 'log-edit-hook))
192 (goto-char (point-min)) (push-mark (point-max)) 193 (goto-char (point-min)) (push-mark (point-max))
193 (set (make-local-variable 'log-edit-initial-files) (log-edit-files))
194 (message (substitute-command-keys 194 (message (substitute-command-keys
195 "Press \\[log-edit-done] when you are done editing.")))) 195 "Press \\[log-edit-done] when you are done editing."))))
196 196