# HG changeset patch # User Roland McGrath # Date 718262452 0 # Node ID 32f079d092a95af5654d3fb752dd9af7c67c3b83 # Parent d649d430148dafef11eacd42a0538223fcda28a6 (vc-backend-checkin): Use apply on vc-do-command: vc-checkin-switches is a list. diff -r d649d430148d -r 32f079d092a9 lisp/vc.el --- 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 ;; 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)