changeset 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 4592654cd2e9
children 7814348a02ec
files lisp/ChangeLog lisp/vc-svn.el
diffstat 2 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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)