changeset 1000:3362b410c219

Emacs: kill commit buffer once it's done with.
author Bryan O'Sullivan <bos@serpentine.com>
date Mon, 22 Aug 2005 03:27:27 -0700
parents bb391518bc28
children ab3939ccbf10
files contrib/mercurial.el
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.