Kill ediff buffers after quitting the ediff session.

diff --git a/misc/ChangeLog b/misc/ChangeLog
index bc47b1450882b28ecbc21ee132a4f9adce3a2552..aef1b0af51b0f0b8dd81d2012adacc21ce3aedf0 100644 (file)
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-20  Karl Eichwalder  <ke@suse.de>
+
+       * po-mode.el (po-ediff-buffers-exit-recursive): Kill ediff buffers
+       after quitting the ediff session.
+
 2002-01-03  Bruno Haible  <bruno@clisp.org>
 
        * gettextize.in: Recommend installation of gettext.h.

diff --git a/misc/po-mode.el b/misc/po-mode.el
index dd9ae0a4f95462ad09e875c00cc1b503e90bc9a2..57d5aad056b77be5e091cf7a6de1aaf5fc86a0a2 100644 (file)
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -2037,8 +2037,10 @@ The string is properly recommented before the replacement occurs."
 
 (defun po-ediff-buffers-exit-recursive (b1 b2 oldbuf end)
   "Ediff buffer B1 and B2, pop back to OLDBUF and replace the old variants.
-This function will delete the first two variants in OLDBUF and replace this
-text with the contents of B2.
+This function will delete the first two variants in OLDBUF, call
+`ediff-buffers' to compare both strings and replace the two variants in
+OLDBUF with the contents of B2.
+Once done kill B1 and B2.
 
 For more info cf. `po-subedit-ediff'."
   (ediff-buffers b1 b2)
@@ -2046,6 +2048,7 @@ For more info cf. `po-subedit-ediff'."
   (pop-to-buffer oldbuf)
   (delete-region (point-min) end)
   (insert-buffer b2)
+  (mapc 'kill-buffer `(,b1 ,b2))
   (display-buffer entry-buffer t))
 
 (defun po-subedit-ediff ()