(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 e4ffc8dcf9f3f175f93f6cdf939510ec14296c06..37694325cda4d2dd023d0993229ebd92e89277a2 100644 (file)
--- 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*")))