# HG changeset patch
# User Karl Fogel <kfogel@red-bean.com>
# Date 1086323830 0
# Node ID d8a2b8a11274eab12831fcdda918ea5ba3950534
# Parent  4592654cd2e91ff4ab5cfdfd2d86029fd893394b
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.

diff -r 4592654cd2e9 -r d8a2b8a11274 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 04 02:50:50 2004 +0000
+++ b/lisp/ChangeLog	Fri Jun 04 04:37:10 2004 +0000
@@ -1,3 +1,10 @@
+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.
+
 2004-06-04  Miles Bader  <miles@gnu.org>
 
 	* faces.el (face-differs-from-default-p): Use a different
diff -r 4592654cd2e9 -r d8a2b8a11274 lisp/vc-svn.el
--- a/lisp/vc-svn.el	Fri Jun 04 02:50:50 2004 +0000
+++ b/lisp/vc-svn.el	Fri Jun 04 04:37:10 2004 +0000
@@ -195,8 +195,9 @@
 
 (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)