Mercurial > emacs

changeset 90131:503a3c779486

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(decode_coding_object): Use safe_call1 instead of call1. (encode_coding_object): Use safe_call instead of call2.
author Kenichi Handa <handa@m17n.org>
date Tue, 29 Mar 2005 00:34:38 +0000
parents 5c6cb7e043ea
children 4080fe8b4f0f
files src/coding.c
diffstat 1 files changed, 10 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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);