mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(vc-arch-checkin): Fix typo.

Browse Source
This commit is contained in:
Stefan Monnier 2007-09-07 19:00:30 +00:00
parent e141eb2e97
commit 98a6dc9f68
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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,Ae(Brd <bojohan@gnu.org>
* cus-face.el (custom-theme-set-faces): Set face attributes

2
lisp/vc-arch.el
View File

@ -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))