195 |
|
|
196 |
(defun vc-svn-checkin (file rev comment) |
(defun vc-svn-checkin (file rev comment) |
197 |
"SVN-specific version of `vc-backend-checkin'." |
"SVN-specific version of `vc-backend-checkin'." |
198 |
(let ((status (apply 'vc-svn-command nil 1 file |
(let ((status (apply |
199 |
"ci" (list* "-m" comment (vc-switches 'SVN 'checkin))))) |
'vc-svn-command nil 1 file "ci" |
200 |
|
(nconc (list "-m" comment) (vc-switches 'SVN 'checkin))))) |
201 |
(set-buffer "*vc*") |
(set-buffer "*vc*") |
202 |
(goto-char (point-min)) |
(goto-char (point-min)) |
203 |
(unless (equal status 0) |
(unless (equal status 0) |