Emacs: update mode lines properly after commit.
--- a/contrib/mercurial.el Mon Aug 22 03:27:27 2005 -0700
+++ b/contrib/mercurial.el Mon Aug 22 03:41:09 2005 -0700
@@ -618,7 +618,8 @@
(interactive)
(goto-char (point-min))
(search-forward hg-commit-message-start)
- (let (message files)
+ (let ((root hg-root)
+ message files)
(let ((start (point)))
(goto-char (point-max))
(search-backward hg-commit-message-end)
@@ -642,7 +643,9 @@
(apply 'hg-run0 "--cwd" hg-root "commit" "-m" message files)
(let ((buf hg-prev-buffer))
(kill-buffer nil)
- (switch-to-buffer buf))))
+ (switch-to-buffer buf))
+ (hg-do-across-repo root
+ (hg-mode-line))))
(defun hg-commit-mode ()
"Mode for describing a commit of changes to a Mercurial repository.