diff options
| author | Roland McGrath <roland@gnu.org> | 1992-10-05 05:17:21 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1992-10-05 05:17:21 +0000 |
| commit | 666a0ebb6770917c98a93b5ad8c89de4a7bdffef (patch) | |
| tree | 08787eec9576533a1458fa9cb83edd1b9b01b030 /lisp | |
| parent | 9dce08b6085492d9622daa7f08d6b5725f021cea (diff) | |
| download | emacs-666a0ebb6770917c98a93b5ad8c89de4a7bdffef.tar.gz emacs-666a0ebb6770917c98a93b5ad8c89de4a7bdffef.tar.bz2 emacs-666a0ebb6770917c98a93b5ad8c89de4a7bdffef.zip | |
(vc-checkin-switches): New defvar.
(vc-backend-checkin): Pass vc-checkin-switches to prog.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/vc.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index b7f4e171b5e..2d630efabd5 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -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 @@ The value is only computed when needed to avoid an expensive search.") (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 @@ Return nil if there is no such person." (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) |