Mercurial > emacs

comparison lisp/log-edit.el @ 40478:4d0323a1ed72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(log-edit): Run hook after `log-edit-files'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 30 Oct 2001 04:32:58 +0000
parents 615b5341ede0
children e88404e8f2cf
comparison
equal deleted inserted replaced
40477:a56267e601e4 40478:4d0323a1ed72
2 2
3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
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
11 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by 12 ;; it under the terms of the GNU General Public License as published by
186 (when setup (erase-buffer)) 186 (when setup (erase-buffer))
187 (log-edit-mode) 187 (log-edit-mode)
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
197 (define-derived-mode log-edit-mode text-mode "Log-Edit" 197 (define-derived-mode log-edit-mode text-mode "Log-Edit"
198 "Major mode for editing version-control log messages. 198 "Major mode for editing version-control log messages.