# HG changeset patch
# User Bryan O'Sullivan <bos@serpentine.com>
# Date 2005-08-22 10:27:27
# Node ID 3362b410c219ef95205105f8d4dceab13591447d
# Parent  bb391518bc287f50bdd22ee1866b104abead69dd

Emacs: kill commit buffer once it's done with.


diff --git a/contrib/mercurial.el b/contrib/mercurial.el
--- a/contrib/mercurial.el
+++ b/contrib/mercurial.el
@@ -610,7 +610,9 @@ With a prefix argument, prompt for the p
 
 (defun hg-commit-abort ()
   (interactive)
-  (error "not implemented"))
+  (let ((buf hg-prev-buffer))
+    (kill-buffer nil)
+    (switch-to-buffer buf)))
 
 (defun hg-commit-finish ()
   (interactive)
@@ -637,7 +639,10 @@ With a prefix argument, prompt for the p
 	       (not hg-commit-allow-empty-file-list))
       (error "Cannot proceed - no files to commit"))
     (setq message (concat message "\n"))
-    (apply 'hg-run0 "--cwd" hg-root "commit" "-m" message files)))
+    (apply 'hg-run0 "--cwd" hg-root "commit" "-m" message files)
+    (let ((buf hg-prev-buffer))
+      (kill-buffer nil)
+      (switch-to-buffer buf))))
 
 (defun hg-commit-mode ()
   "Mode for describing a commit of changes to a Mercurial repository.