From: Stefan Monnier Date: Fri, 7 Sep 2007 19:00:30 +0000 (+0000) Subject: (vc-arch-checkin): Fix typo. X-Git-Tag: emacs-pretest-23.0.90~11037 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98a6dc9f68be9d66b3c23caf00529e16c38d356d;p=emacs.git (vc-arch-checkin): Fix typo. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b1e2ba0f8ed..8b757a8db92 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +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 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))