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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 70c3d9d..8d4381a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index 4db9788..82c09cb 100644 (file)
--- 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)