(code_convert_region_unwind): GCPRO arg.

diff --git a/src/ChangeLog b/src/ChangeLog
index 2139b4f83117c8fc235dfecd18d887dba06eaa40..90d782faa208efc62cecd909061438fc899f6661 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2005-12-14  Kyotaro HORIGUCHI  <horiguti@meadowy.org>  (tiny change)
+
+       * coding.c (code_convert_region_unwind): GCPRO arg.
+
 2005-12-12  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
 
        * xfns.c (compute_tip_xy): Calculate root_y the same way as root_x,

diff --git a/src/coding.c b/src/coding.c
index fa9a37b94527aa18d5ff205d678ca67cc020f640..8f4fbc9637e0b1b5591b278aab6e240904546439 100644 (file)
--- a/src/coding.c
+++ b/src/coding.c
@@ -5360,10 +5360,15 @@ static Lisp_Object
 code_convert_region_unwind (arg)
      Lisp_Object arg;
 {
+  struct gcpro gcpro1;
+  GCPRO1 (arg);
+
   inhibit_pre_post_conversion = 0;
   Vlast_coding_system_used = XCAR (arg);
   for (arg = XCDR (arg); ! NILP (arg); arg = XCDR (arg))
     Fkill_buffer (XCAR (arg));
+
+  UNGCPRO;
   return Qnil;
 }