Mercurial > hg

changeset 1001:ab3939ccbf10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Emacs: update mode lines properly after commit.
author Bryan O'Sullivan <bos@serpentine.com>
date Mon, 22 Aug 2005 03:41:09 -0700
parents 3362b410c219
children 254ab35709e6
files contrib/mercurial.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.