# HG changeset patch
# User Andr��� Spiegel <spiegel@gnu.org>
# Date 996505309 0
# Node ID 32e167f31eb6aff544072f9e129980cd7c759d00
# Parent  f99d2e5ee830e3ad84edcfe2a4f9543be7efd97e
(vc-checkout-hook): New hook.
(vc-checkout): Run it.

diff -r f99d2e5ee830 -r 32e167f31eb6 lisp/vc.el
--- 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."