From 5129f10c94db38789a92f396f568f993d726e7bd Mon Sep 17 00:00:00 2001 From: Karl Fogel Date: Fri, 4 Jun 2004 04:37:10 +0000 Subject: [PATCH] 2004-06-03 Karl Fogel * 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 in http://lists.gnu.org/archive/html/emacs-devel/2004-05/msg00442.html. --- lisp/ChangeLog | 7 +++++++ lisp/vc-svn.el | 5 +++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 70c3d9d8942..8d4381a6961 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2004-06-03 Karl Fogel + + * 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 in + http://lists.gnu.org/archive/html/emacs-devel/2004-05/msg00442.html. + 2004-06-04 Miles Bader * faces.el (face-differs-from-default-p): Use a different diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 4db9788cc3b..82c09cbd435 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -195,8 +195,9 @@ This is only possible if SVN is responsible for FILE's directory.") (defun vc-svn-checkin (file rev comment) "SVN-specific version of `vc-backend-checkin'." - (let ((status (apply 'vc-svn-command nil 1 file - "ci" (list* "-m" comment (vc-switches 'SVN 'checkin))))) + (let ((status (apply + 'vc-svn-command nil 1 file "ci" + (nconc (list "-m" comment) (vc-switches 'SVN 'checkin))))) (set-buffer "*vc*") (goto-char (point-min)) (unless (equal status 0) -- 2.11.4.GIT