Mercurial > emacs
changeset 38606:32e167f31eb6
(vc-checkout-hook): New hook.
(vc-checkout): Run it.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Mon, 30 Jul 2001 15:01:49 +0000 |
| parents | f99d2e5ee830 |
| children | 6752a4952330 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Mon Jul 30 14:08:51 2001 +0000 +++ b/lisp/vc.el Mon Jul 30 15:01:49 2001 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see below for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> -;; $Id: vc.el,v 1.301 2001/07/30 08:17:20 gerd Exp $ +;; $Id: vc.el,v 1.302 2001/07/30 08:18:04 gerd Exp $ ;; This file is part of GNU Emacs. @@ -479,6 +479,14 @@ :version "21.1") ;;;###autoload +(defcustom vc-checkout-hook nil + "*Normal hook (list of functions) run after a file has been checked out. +See `run-hooks'." + :type 'hook + :group 'vc + :version "21.1") + +;;;###autoload (defcustom vc-checkin-hook nil "*Normal hook (list of functions) run after a checkin is done. See `run-hooks'." @@ -1442,7 +1450,8 @@ 'needs-patch) 'edited)) (vc-checkout-time . ,(nth 5 (file-attributes file))))) - (vc-resynch-buffer file t t)) + (vc-resynch-buffer file t t) + (run-hooks 'vc-checkout-hook)) (defun vc-steal-lock (file rev owner) "Steal the lock on FILE."