# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 718262241 0
# Node ID d649d430148dafef11eacd42a0538223fcda28a6
# Parent  92791ed2d1eb4984ca7c2e949add143e8f0d1bcd
(vc-checkin-switches): New defvar.
(vc-backend-checkin): Pass vc-checkin-switches to prog.

diff -r 92791ed2d1eb -r d649d430148d lisp/vc.el
--- a/lisp/vc.el	Mon Oct 05 04:54:07 1992 +0000
+++ b/lisp/vc.el	Mon Oct 05 05:17:21 1992 +0000
@@ -5,7 +5,7 @@
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Version: 4.0
 
-;;	$Id: vc.el,v 1.6 1992/09/27 02:42:08 roland Exp rms $	
+;;	$Id: vc.el,v 1.7 1992/09/28 13:01:53 rms Exp roland $	
 
 ;; This file is part of GNU Emacs.
 
@@ -73,6 +73,9 @@
 (defvar vc-mistrust-permissions 'file-symlink-p
   "*Don't assume that permissions and ownership track version-control status.")
 
+(defvar vc-checkin-switches nil
+  "*Extra switches passed to the checkin program by \\[vc-checkin].")
+
 ;;;###autoload
 (defvar vc-checkin-hook nil
   "*List of functions called after a vc-checkin is done.  See `runs-hooks'.")
@@ -1061,13 +1064,15 @@
    (progn
      (vc-do-command 0 "delta" file
 		    (if rev (concat "-r" rev))
-		    (concat "-y" comment))
+		    (concat "-y" comment)
+		    vc-checkin-switches)
      (if vc-keep-workfiles
 	 (vc-do-command 0 "get" file))
      )
    (vc-do-command 0 "ci" file
 		  (concat (if vc-keep-workfiles "-u" "-r") rev)
-		  (concat "-m" comment))
+		  (concat "-m" comment)
+		  vc-checkin-switches)
    )
   (vc-file-setprop file 'vc-locking-user nil)
   (message "Checking in %s...done" file)