Mercurial > emacs
changeset 40479:2930fd135efa
(cvs-mode-commit-hook): New hook.
(cvs-mode-commit): Run it.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 30 Oct 2001 04:41:28 +0000 |
| parents | 4d0323a1ed72 |
| children | 5ebd79883369 |
| files | lisp/pcvs.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/pcvs.el Tue Oct 30 04:32:58 2001 +0000 +++ b/lisp/pcvs.el Tue Oct 30 04:41:28 2001 +0000 @@ -13,7 +13,7 @@ ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu ;; Keywords: CVS, version control, release management -;; Revision: $Id: pcvs.el,v 1.28 2001/07/16 07:46:48 pj Exp $ +;; Revision: $Id: pcvs.el,v 1.29 2001/09/22 20:23:16 monnier Exp $ ;; This file is part of GNU Emacs. @@ -1313,6 +1313,11 @@ (interactive) (cvs-mode-commit 'force)) +(defcustom cvs-mode-commit-hook nil + "Hook run after setting up the commit buffer." + :type 'hook + :options '(cvs-mode-diff)) + (defun cvs-mode-commit (setup) "Check in all marked files, or the current file. The user will be asked for a log message in a buffer. @@ -1332,7 +1337,8 @@ 'log-edit))) (funcall setupfun 'cvs-do-commit setup 'cvs-commit-filelist buf) (set (make-local-variable 'cvs-minor-wrap-function) 'cvs-commit-minor-wrap) - (set (make-local-variable 'list-buffers-directory) lbd))) + (set (make-local-variable 'list-buffers-directory) lbd) + (run-hooks 'cvs-mode-commit-hook))) (defun cvs-commit-minor-wrap (buf f) (let ((cvs-ignore-marks-modif (cvs-mode-mark-get-modif "commit")))