Mercurial > emacs

changeset 1336:32f079d092a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-backend-checkin): Use apply on vc-do-command: vc-checkin-switches is a list.
author Roland McGrath <roland@gnu.org>
date Mon, 05 Oct 1992 05:20:52 +0000
parents d649d430148d
children ab589b426055
files lisp/vc.el
diffstat 1 files changed, 9 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc.el	Mon Oct 05 05:17:21 1992 +0000
+++ b/lisp/vc.el	Mon Oct 05 05:20:52 1992 +0000
@@ -5,7 +5,7 @@
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Version: 4.0
 
-;;	$Id: vc.el,v 1.7 1992/09/28 13:01:53 rms Exp roland $	
+;;	$Id: vc.el,v 1.8 1992/10/05 05:17:21 roland Exp roland $	
 
 ;; This file is part of GNU Emacs.
 
@@ -1062,17 +1062,17 @@
   (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)
+     (apply '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)
+   (apply '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)