diff options
| author | Stefan Monnier | 2001-10-30 04:32:58 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-10-30 04:32:58 +0000 |
| commit | 70c2a4848d675f47b6ee228bf4d99bcc4815713d (patch) | |
| tree | 32358cac3277e5c56b1bac6ba366b67770df27b1 | |
| parent | cc45fb4031a234b9c99549e54c4b0612af3d28cd (diff) | |
| download | emacs-70c2a4848d675f47b6ee228bf4d99bcc4815713d.tar.gz emacs-70c2a4848d675f47b6ee228bf4d99bcc4815713d.zip | |
(log-edit): Run hook after `log-edit-files'.
| -rw-r--r-- | lisp/log-edit.el | 4 |
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 | ||