Mercurial > emacs
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 |
