From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 1 Apr 1997 21:47:17 +0000 (+0000)
Subject: (vc-checkin-hook): Doc fix.
X-Git-Tag: emacs-20.1~2671
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/f0b188ed3d5e64498f3cc78cf928a88fc7a5a1e4

(vc-checkin-hook): Doc fix.

(vc-before-checkin-hook): New hook.
(vc-start-entry): Use it.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index e4ffc8dcf9..37694325cd 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -122,9 +122,15 @@ walk file trees.")
 (defvar diff-switches "-c"
   "*A string or list of strings specifying switches to be be passed to diff.")
 
+;;;###autoload
+(defvar vc-before-checkin-hook nil
+  "*Normal hook (list of functions) run before a file gets checked in.  
+See `run-hooks'.")
+
 ;;;###autoload
 (defvar vc-checkin-hook nil
-  "*List of functions called after a checkin is done.  See `run-hooks'.")
+  "*Normal hook (List of functions) run after a checkin is done.
+See `run-hooks'.")
 
 ;; Header-insertion hair
 
@@ -861,6 +867,12 @@ merge in the changes into your working copy."
   ;; Remember the file's buffer in vc-parent-buffer (current one if no file).
   ;; AFTER-HOOK specifies the local value for vc-log-operation-hook.
   (let ((parent (if file (find-file-noselect file) (current-buffer))))
+    (if vc-before-checkin-hook
+        (if file
+            (save-excursion 
+              (set-buffer parent)
+              (run-hooks 'vc-before-checkin-hook))
+          (run-hooks 'vc-before-checkin-hook)))
     (if comment
 	(set-buffer (get-buffer-create "*VC-log*"))
       (pop-to-buffer (get-buffer-create "*VC-log*")))