From f0b188ed3d5e64498f3cc78cf928a88fc7a5a1e4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Apr 1997 21:47:17 +0000 Subject: [PATCH] (vc-checkin-hook): Doc fix. (vc-before-checkin-hook): New hook. (vc-start-entry): Use it. --- lisp/vc.el | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/vc.el b/lisp/vc.el index e4ffc8dcf9f..37694325cda 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*"))) -- 2.39.2