Mercurial > emacs

comparison src/coding.c @ 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 30ad2795fdab
children 4da4a09e8b1b
comparison
equal deleted inserted replaced
90130:5c6cb7e043ea 90131:503a3c779486
6810 EMACS_INT prev_Z = Z, prev_Z_BYTE = Z_BYTE; 6810 EMACS_INT prev_Z = Z, prev_Z_BYTE = Z_BYTE;
6811 Lisp_Object val; 6811 Lisp_Object val;
6812 6812
6813 TEMP_SET_PT_BOTH (coding->dst_pos, coding->dst_pos_byte); 6813 TEMP_SET_PT_BOTH (coding->dst_pos, coding->dst_pos_byte);
6814 GCPRO2 (coding->src_object, coding->dst_object); 6814 GCPRO2 (coding->src_object, coding->dst_object);
6815 val = call1 (CODING_ATTR_POST_READ (attrs), 6815 val = safe_call1 (CODING_ATTR_POST_READ (attrs),
6816 make_number (coding->produced_char)); 6816 make_number (coding->produced_char));
6817 UNGCPRO; 6817 UNGCPRO;
6818 CHECK_NATNUM (val); 6818 CHECK_NATNUM (val);
6819 coding->produced_char += Z - prev_Z; 6819 coding->produced_char += Z - prev_Z;
6820 coding->produced += Z_BYTE - prev_Z_BYTE; 6820 coding->produced += Z_BYTE - prev_Z_BYTE;
6821 } 6821 }
6909 saved_pt = PT, saved_pt_byte = PT_BYTE; 6909 saved_pt = PT, saved_pt_byte = PT_BYTE;
6910 del_range_both (from, from_byte, to, to_byte, 1); 6910 del_range_both (from, from_byte, to, to_byte, 1);
6911 set_buffer_internal (XBUFFER (coding->src_object)); 6911 set_buffer_internal (XBUFFER (coding->src_object));
6912 } 6912 }
6913 6913
6914 call2 (CODING_ATTR_PRE_WRITE (attrs), 6914 {
6915 make_number (BEG), make_number (Z)); 6915 Lisp_Object args[3];
6916
6917 args[0] = CODING_ATTR_PRE_WRITE (attrs);
6918 args[1] = make_number (BEG);
6919 args[2] = make_number (Z);
6920 safe_call (3, args);
6921 }
6916 coding->src_object = Fcurrent_buffer (); 6922 coding->src_object = Fcurrent_buffer ();
6917 if (BEG != GPT) 6923 if (BEG != GPT)
6918 move_gap_both (BEG, BEG_BYTE); 6924 move_gap_both (BEG, BEG_BYTE);
6919 coding->src_chars = Z - BEG; 6925 coding->src_chars = Z - BEG;
6920 coding->src_bytes = Z_BYTE - BEG_BYTE; 6926 coding->src_bytes = Z_BYTE - BEG_BYTE;