From 7cad930dbd69fb168a2f8fe29ec590b3845806ad Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Mon, 30 Jul 2001 15:01:49 +0000 Subject: [PATCH] (vc-checkout-hook): New hook. (vc-checkout): Run it. --- lisp/vc.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) 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 -;; $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." -- 2.39.2