Mercurial > emacs
comparison lisp/vc-svn.el @ 55900:d8a2b8a11274
2004-06-03 Karl Fogel <kfogel@red-bean.com>
* vc-svn.el (vc-svn-checkin): Use 'nconc' instead of 'list*',
because the latter is a CL-ism. This fixes the bug reported by
Shawn Boyette <mdxi@collapsar.net> in
http://lists.gnu.org/archive/html/emacs-devel/2004-05/msg00442.html.
| author | Karl Fogel <kfogel@red-bean.com> |
|---|---|
| date | Fri, 04 Jun 2004 04:37:10 +0000 |
| parents | ae9b6f1e3bdf |
| children | 332e641fe2b1 4c90ffeb71c5 |
comparison
equal
deleted
inserted
replaced
| 55899:4592654cd2e9 | 55900:d8a2b8a11274 |
|---|---|
| 193 "Return non-nil if FILE could be registered in SVN. | 193 "Return non-nil if FILE could be registered in SVN. |
| 194 This is only possible if SVN is responsible for FILE's directory.") | 194 This is only possible if SVN is responsible for FILE's directory.") |
| 195 | 195 |
| 196 (defun vc-svn-checkin (file rev comment) | 196 (defun vc-svn-checkin (file rev comment) |
| 197 "SVN-specific version of `vc-backend-checkin'." | 197 "SVN-specific version of `vc-backend-checkin'." |
| 198 (let ((status (apply 'vc-svn-command nil 1 file | 198 (let ((status (apply |
| 199 "ci" (list* "-m" comment (vc-switches 'SVN 'checkin))))) | 199 'vc-svn-command nil 1 file "ci" |
| 200 (nconc (list "-m" comment) (vc-switches 'SVN 'checkin))))) | |
| 200 (set-buffer "*vc*") | 201 (set-buffer "*vc*") |
| 201 (goto-char (point-min)) | 202 (goto-char (point-min)) |
| 202 (unless (equal status 0) | 203 (unless (equal status 0) |
| 203 ;; Check checkin problem. | 204 ;; Check checkin problem. |
| 204 (cond | 205 (cond |