# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1112056478 0
# Node ID 503a3c77948630bb6ad15900f21fbc2f8af8cc0c
# Parent  5c6cb7e043ead81c1e618e2a93040efed3a57a19
(decode_coding_object): Use safe_call1 instead of call1.
(encode_coding_object): Use safe_call instead of call2.

diff -r 5c6cb7e043ea -r 503a3c779486 src/coding.c
--- a/src/coding.c	Mon Mar 28 07:31:49 2005 +0000
+++ b/src/coding.c	Tue Mar 29 00:34:38 2005 +0000
@@ -6812,8 +6812,8 @@
 
       TEMP_SET_PT_BOTH (coding->dst_pos, coding->dst_pos_byte);
       GCPRO2 (coding->src_object, coding->dst_object);
-      val = call1 (CODING_ATTR_POST_READ (attrs),
-		   make_number (coding->produced_char));
+      val = safe_call1 (CODING_ATTR_POST_READ (attrs),
+			make_number (coding->produced_char));
       UNGCPRO;
       CHECK_NATNUM (val);
       coding->produced_char += Z - prev_Z;
@@ -6911,8 +6911,14 @@
 	  set_buffer_internal (XBUFFER (coding->src_object));
 	}
 
-      call2 (CODING_ATTR_PRE_WRITE (attrs),
-	     make_number (BEG), make_number (Z));
+      {
+	Lisp_Object args[3];
+
+	args[0] = CODING_ATTR_PRE_WRITE (attrs);
+	args[1] = make_number (BEG);
+	args[2] = make_number (Z);
+	safe_call (3, args);
+      }
       coding->src_object = Fcurrent_buffer ();
       if (BEG != GPT)
 	move_gap_both (BEG, BEG_BYTE);