# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1189191630 0
# Node ID 1224dec4933300c728fcdd934a4868e4a6879a3a
# Parent  ac2caa9660e729750be166545b5f4e11f3404853
(vc-arch-checkin): Fix typo.

diff -r ac2caa9660e7 -r 1224dec49333 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 07 16:50:02 2007 +0000
+++ b/lisp/ChangeLog	Fri Sep 07 19:00:30 2007 +0000
@@ -1,3 +1,7 @@
+2007-09-07  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* vc-arch.el (vc-arch-checkin): Fix typo.
+
 2007-09-07  Johan Bockg,Ae(Brd  <bojohan@gnu.org>
 
 	* cus-face.el (custom-theme-set-faces): Set face attributes
diff -r ac2caa9660e7 -r 1224dec49333 lisp/vc-arch.el
--- a/lisp/vc-arch.el	Fri Sep 07 16:50:02 2007 +0000
+++ b/lisp/vc-arch.el	Fri Sep 07 19:00:30 2007 +0000
@@ -370,7 +370,7 @@
 (defun vc-arch-checkin (files rev comment)
   (if rev (error "Committing to a specific revision is unsupported"))
   ;; FIXME: This implementation probably only works for singleton filesets
-  (let ((summary (file-relative-name (car file) (vc-arch-root (car files)))))
+  (let ((summary (file-relative-name (car files) (vc-arch-root (car files)))))
     ;; Extract a summary from the comment.
     (when (or (string-match "\\`Summary:[ \t]*\\(.*[^ \t\n]\\)\\([ \t]*\n\\)*" comment)
 	      (string-match "\\`[ \t]*\\(.*[^ \t\n]\\)[ \t]*\\(\n?\\'\\|\n\\([ \t]*\n\\)+\\)" comment))