--- 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.