Commit 98a6dc9f authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(vc-arch-checkin): Fix typo.

parent e141eb2e
2007-09-07 Stefan Monnier <>
* vc-arch.el (vc-arch-checkin): Fix typo.
2007-09-07 Johan Bockg,Ae(Brd <>
* cus-face.el (custom-theme-set-faces): Set face attributes
......@@ -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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment