comparison lisp/vc.el @ 1335:d649d430148d

(vc-checkin-switches): New defvar. (vc-backend-checkin): Pass vc-checkin-switches to prog.

1334:92791ed2d1eb

;; Copyright (C) 1992 Free Software Foundation, Inc.

;; Author: Eric S. Raymond <[e-mail]>
;; Version: 4.0

;;	$Id: vc.el,v 1.6 1992/09/27 02:42:08 roland Exp rms $	

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

  "*Prompt for initial comment when a file is registered.")
(defvar vc-command-messages nil
  "*Display run messages from back-end commands.")
(defvar vc-mistrust-permissions 'file-symlink-p
  "*Don't assume that permissions and ownership track version-control status.")

;;;###autoload
(defvar vc-checkin-hook nil
  "*List of functions called after a vc-checkin is done.  See `runs-hooks'.")

  (message "Checking in %s..." file)
  (vc-backend-dispatch file
   (progn
     (vc-do-command 0 "delta" file
		    (if rev (concat "-r" rev))
		    (concat "-y" comment))
     (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))
   )
  (vc-file-setprop file 'vc-locking-user nil)
  (message "Checking in %s...done" file)
  )

1335:d649d430148d

;; Copyright (C) 1992 Free Software Foundation, Inc.

;; Author: Eric S. Raymond <[e-mail]>
;; Version: 4.0

;;	$Id: vc.el,v 1.7 1992/09/28 13:01:53 rms Exp roland $	

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

  "*Prompt for initial comment when a file is registered.")
(defvar vc-command-messages nil
  "*Display run messages from back-end commands.")
(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'.")

  (message "Checking in %s..." file)
  (vc-backend-dispatch file
   (progn
     (vc-do-command 0 "delta" file
		    (if rev (concat "-r" rev))
		    (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)
		  vc-checkin-switches)
   )
  (vc-file-setprop file 'vc-locking-user nil)
  (message "Checking in %s...done" file)
  )