comparison src/coding.c @ 29172:46ad5a027334

(run_pre_post_conversion_on_str): Set point to the beginning of buffer before calling coding->post_read_conversion. (decode_coding_string): Give correct args to run_pre_post_conversion_on_str. (encode_coding_string): Likewise.
author Kenichi Handa <handa@m17n.org>
date Thu, 25 May 2000 04:44:33 +0000
parents 176708661b08
children 1d1c27067af4
comparison
equal deleted inserted replaced
29171:53a9512d0a8b 29172:46ad5a027334
4998 UNGCPRO; 4998 UNGCPRO;
4999 inhibit_pre_post_conversion = 1; 4999 inhibit_pre_post_conversion = 1;
5000 if (encodep) 5000 if (encodep)
5001 call2 (coding->pre_write_conversion, make_number (BEG), make_number (Z)); 5001 call2 (coding->pre_write_conversion, make_number (BEG), make_number (Z));
5002 else 5002 else
5003 call1 (coding->post_read_conversion, make_number (Z - BEG)); 5003 {
5004 TEMP_SET_PT_BOTH (BEG, BEG_BYTE);
5005 call1 (coding->post_read_conversion, make_number (Z - BEG));
5006 }
5004 inhibit_pre_post_conversion = 0; 5007 inhibit_pre_post_conversion = 0;
5005 str = make_buffer_string (BEG, Z, 0); 5008 str = make_buffer_string (BEG, Z, 0);
5006 return unbind_to (count, str); 5009 return unbind_to (count, str);
5007 } 5010 }
5008 5011
5108 coding_restore_composition (coding, str); 5111 coding_restore_composition (coding, str);
5109 coding_free_composition_data (coding); 5112 coding_free_composition_data (coding);
5110 5113
5111 if (SYMBOLP (coding->post_read_conversion) 5114 if (SYMBOLP (coding->post_read_conversion)
5112 && !NILP (Ffboundp (coding->post_read_conversion))) 5115 && !NILP (Ffboundp (coding->post_read_conversion)))
5113 str = run_pre_post_conversion_on_str (str, 0); 5116 str = run_pre_post_conversion_on_str (str, coding, 0);
5114 5117
5115 return str; 5118 return str;
5116 } 5119 }
5117 5120
5118 Lisp_Object 5121 Lisp_Object
5128 Lisp_Object saved_coding_symbol; 5131 Lisp_Object saved_coding_symbol;
5129 int result; 5132 int result;
5130 5133
5131 if (SYMBOLP (coding->pre_write_conversion) 5134 if (SYMBOLP (coding->pre_write_conversion)
5132 && !NILP (Ffboundp (coding->pre_write_conversion))) 5135 && !NILP (Ffboundp (coding->pre_write_conversion)))
5133 str = run_pre_post_conversion_on_str (str, 1); 5136 str = run_pre_post_conversion_on_str (str, coding, 1);
5134 5137
5135 from = 0; 5138 from = 0;
5136 to = XSTRING (str)->size; 5139 to = XSTRING (str)->size;
5137 to_byte = STRING_BYTES (XSTRING (str)); 5140 to_byte = STRING_BYTES (XSTRING (str));
5138 5141