Mercurial > emacs
diff lisp/vc-arch.el @ 84374:1224dec49333
(vc-arch-checkin): Fix typo.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 07 Sep 2007 19:00:30 +0000 |
| parents | 2a2056106d16 |
| children | 8ba0e30716a5 14c4a6aac623 |
line wrap: on
line diff
--- 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))