# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 909388811 0
# Node ID eaf358b2e8ddcc439b6a1f28c8b2197634063b61
# Parent  417a469a435419704e9ca9711c03a89489cf22f5
(code_convert_region): Kill the work buffer created by
pre-write-conversion.

diff -r 417a469a4354 -r eaf358b2e8dd src/coding.c
--- a/src/coding.c	Mon Oct 26 05:00:27 1998 +0000
+++ b/src/coding.c	Mon Oct 26 08:00:11 1998 +0000
@@ -4264,18 +4264,20 @@
     {
       /* The function in pre-write-conversion may put a new text in a
          new buffer.  */
-      struct buffer *prev = current_buffer, *new;
+      struct buffer *prev = current_buffer;
+      Lisp_Object new;
 
       call2 (coding->pre_write_conversion,
 	     make_number (from), make_number (to));
       if (current_buffer != prev)
 	{
 	  len = ZV - BEGV;
-	  new = current_buffer;
+	  new = Fcurrent_buffer ();
 	  set_buffer_internal_1 (prev);
 	  del_range_2 (from, from_byte, to, to_byte);
 	  TEMP_SET_PT_BOTH (from, from_byte);
-	  insert_from_buffer (new, 1, len, 0);
+	  insert_from_buffer (XBUFFER (new), 1, len, 0);
+	  Fkill_buffer (new);
 	  if (orig_point >= to)
 	    orig_point += len - orig_len;
 	  else if (orig_point > from)