(vc-arch-checkin): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b1e2ba0f8ede8397d4fe2498dbc99e35afb95eb8..8b757a8db927704456b54bd763f5ef83d16584b0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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\e,Ae\e(Brd  <bojohan@gnu.org>
 
        * cus-face.el (custom-theme-set-faces): Set face attributes

diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el
index 19c5c0ac9a063d0d35763fde3174bf7c757e52be..840a19a0f6673c0e442b98b686d8ea66eb7e07f8 100644 (file)
--- a/lisp/vc-arch.el
+++ b/lisp/vc-arch.el
@@ -370,7 +370,7 @@ Return non-nil if FILE is unchanged."
 (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))