diff options
author | Roland McGrath <[email protected]> | 1992-10-05 05:20:52 +0000 |
---|---|---|
committer | Roland McGrath <[email protected]> | 1992-10-05 05:20:52 +0000 |
commit | d59e5e8c3c3710fcfe1e251926359de2e19c3f23 (patch) | |
tree | 53d9b43b7b9c959cf230a86f728bc8d9410b2783 | |
parent | 666a0ebb6770917c98a93b5ad8c89de4a7bdffef (diff) |
(vc-backend-checkin): Use apply on vc-do-command: vc-checkin-switches is a
list.
-rw-r--r-- | lisp/vc.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 2d630efabd..ff28daf64b 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond <[email protected]> ;; 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 @@ Return nil if there is no such person." (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) |