# HG changeset patch
# User Bryan O'Sullivan <bos@serpentine.com>
# Date 1124706447 25200
# Node ID 3362b410c219ef95205105f8d4dceab13591447d
# Parent  bb391518bc287f50bdd22ee1866b104abead69dd
Emacs: kill commit buffer once it's done with.


diff -r bb391518bc28 -r 3362b410c219 contrib/mercurial.el
--- a/contrib/mercurial.el	Mon Aug 22 03:16:32 2005 -0700
+++ b/contrib/mercurial.el	Mon Aug 22 03:27:27 2005 -0700
@@ -610,7 +610,9 @@
 
 (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 @@
 	       (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.