From: André Spiegel <spiegel@gnu.org>
Date: Mon, 30 Jul 2001 15:01:49 +0000 (+0000)
Subject: (vc-checkout-hook): New hook.
X-Git-Tag: emacs-pretest-21.0.105~353
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7cad930dbd69fb168a2f8fe29ec590b3845806ad;p=emacs.git

(vc-checkout-hook): New hook.
(vc-checkout): Run it.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index 1a039f02c95..2eef1aecd65 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -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.
 
@@ -478,6 +478,14 @@ VC can handle."
   :group 'vc
   :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.
@@ -1442,7 +1450,8 @@ REV defaults to the latest revision."
 			'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."