Commit 7cad930d authored by André Spiegel's avatar André Spiegel
Browse files

(vc-checkout-hook): New hook.

(vc-checkout): Run it.
parent 4e8864c7
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment