mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(log-edit): Run hook after `log-edit-files'.

Browse Source
This commit is contained in:
Stefan Monnier 2001-10-30 04:32:58 +00:00
parent cc45fb4031
commit 70c2a4848d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/log-edit.el
View File

@ -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 @@ If BUFFER is non-nil `log-edit' will jump to that buffer, use it to edit the
(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."))))