Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 84373:ac2caa9660e7 | 84374:1224dec49333 |
|---|---|
| 368 (defun vc-arch-checkout-model (file) 'implicit) | 368 (defun vc-arch-checkout-model (file) 'implicit) |
| 369 | 369 |
| 370 (defun vc-arch-checkin (files rev comment) | 370 (defun vc-arch-checkin (files rev comment) |
| 371 (if rev (error "Committing to a specific revision is unsupported")) | 371 (if rev (error "Committing to a specific revision is unsupported")) |
| 372 ;; FIXME: This implementation probably only works for singleton filesets | 372 ;; FIXME: This implementation probably only works for singleton filesets |
| 373 (let ((summary (file-relative-name (car file) (vc-arch-root (car files))))) | 373 (let ((summary (file-relative-name (car files) (vc-arch-root (car files))))) |
| 374 ;; Extract a summary from the comment. | 374 ;; Extract a summary from the comment. |
| 375 (when (or (string-match "\\`Summary:[ \t]*\\(.*[^ \t\n]\\)\\([ \t]*\n\\)*" comment) | 375 (when (or (string-match "\\`Summary:[ \t]*\\(.*[^ \t\n]\\)\\([ \t]*\n\\)*" comment) |
| 376 (string-match "\\`[ \t]*\\(.*[^ \t\n]\\)[ \t]*\\(\n?\\'\\|\n\\([ \t]*\n\\)+\\)" comment)) | 376 (string-match "\\`[ \t]*\\(.*[^ \t\n]\\)[ \t]*\\(\n?\\'\\|\n\\([ \t]*\n\\)+\\)" comment)) |
| 377 (setq summary (match-string 1 comment)) | 377 (setq summary (match-string 1 comment)) |
| 378 (setq comment (substring comment (match-end 0)))) | 378 (setq comment (substring comment (match-end 0)))) |