X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/4b70e2c95f4f6b383905f06d86f2d19faf4d774c..07c381ad19a0b780e7d3d54a25244967fb00d7fa:/src/fileio.c

diff --git a/src/fileio.c b/src/fileio.c
index 56dbae6f87..a346b4df26 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4260,7 +4260,7 @@ actually used.  */)
       if (how_much < 0)
 	{
 	  xfree (conversion_buffer);
-
+	  coding_free_composition_data (&coding);
 	  if (how_much == -1)
 	    error ("IO error reading %s: %s",
 		   SDATA (orig_filename), emacs_strerror (errno));
@@ -4282,6 +4282,7 @@ actually used.  */)
       if (bufpos == inserted)
 	{
 	  xfree (conversion_buffer);
+	  coding_free_composition_data (&coding);
 	  emacs_close (fd);
 	  specpdl_ptr--;
 	  /* Truncate the buffer to the size of the file.  */