Commit 5129f10c authored by Karl Fogel's avatar Karl Fogel
Browse files

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.
parent 7e07a66d
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> 2004-06-04 Miles Bader <miles@gnu.org>
* faces.el (face-differs-from-default-p): Use a different * faces.el (face-differs-from-default-p): Use a different
......
...@@ -195,8 +195,9 @@ This is only possible if SVN is responsible for FILE's directory.") ...@@ -195,8 +195,9 @@ This is only possible if SVN is responsible for FILE's directory.")
(defun vc-svn-checkin (file rev comment) (defun vc-svn-checkin (file rev comment)
"SVN-specific version of `vc-backend-checkin'." "SVN-specific version of `vc-backend-checkin'."
(let ((status (apply 'vc-svn-command nil 1 file (let ((status (apply
"ci" (list* "-m" comment (vc-switches 'SVN 'checkin))))) 'vc-svn-command nil 1 file "ci"
(nconc (list "-m" comment) (vc-switches 'SVN 'checkin)))))
(set-buffer "*vc*") (set-buffer "*vc*")
(goto-char (point-min)) (goto-char (point-min))
(unless (equal status 0) (unless (equal status 0)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment