diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-09-07 19:00:30 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-09-07 19:00:30 +0000 |
| commit | 98a6dc9f68be9d66b3c23caf00529e16c38d356d (patch) | |
| tree | 274ee1f5a5dad532860489702279da99e7a1c2b3 /lisp/vc-arch.el | |
| parent | e141eb2e9717cdfd112389bd90e0d0616e249e2c (diff) | |
| download | emacs-98a6dc9f68be9d66b3c23caf00529e16c38d356d.tar.gz | |
(vc-arch-checkin): Fix typo.
Diffstat (limited to 'lisp/vc-arch.el')
| -rw-r--r-- | lisp/vc-arch.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el index 19c5c0ac9a0..840a19a0f66 100644 --- 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)) |