Emacs: update mode lines properly after commit.
authorBryan O'Sullivan <bos@serpentine.com>
Mon, 22 Aug 2005 03:41:09 -0700
changeset 1001 ab3939ccbf10
parent 1000 3362b410c219
child 1002 254ab35709e6
Emacs: update mode lines properly after commit.
contrib/mercurial.el
--- 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.