Mercurial > emacs
comparison src/fileio.c @ 24932:27a1d7a4c444
(Finsert_file_contents): If reading into a unibyte
buffer, suppress character code conversion.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 07 Jul 1999 22:49:31 +0000 |
| parents | 804955a16819 |
| children | c79dc141ef5a |
comparison
equal
deleted
inserted
replaced
| 24931:6ccce3af0d2a | 24932:27a1d7a4c444 |
|---|---|
| 3537 } | 3537 } |
| 3538 } | 3538 } |
| 3539 | 3539 |
| 3540 setup_coding_system (Fcheck_coding_system (val), &coding); | 3540 setup_coding_system (Fcheck_coding_system (val), &coding); |
| 3541 | 3541 |
| 3542 if (NILP (Vcoding_system_for_read) | 3542 if (NILP (current_buffer->enable_multibyte_characters) |
| 3543 && NILP (current_buffer->enable_multibyte_characters)) | 3543 && ! NILP (val)) |
| 3544 /* We must suppress all text conversion except for end-of-line | 3544 /* We must suppress all character code conversion except for |
| 3545 conversion. */ | 3545 end-of-line conversion. */ |
| 3546 setup_raw_text_coding_system (&coding); | 3546 setup_raw_text_coding_system (&coding); |
| 3547 | 3547 |
| 3548 coding_system_decided = 1; | 3548 coding_system_decided = 1; |
| 3549 } | 3549 } |
| 3550 | 3550 |
| 4078 struct coding_system temp_coding; | 4078 struct coding_system temp_coding; |
| 4079 setup_coding_system (val, &temp_coding); | 4079 setup_coding_system (val, &temp_coding); |
| 4080 bcopy (&temp_coding, &coding, sizeof coding); | 4080 bcopy (&temp_coding, &coding, sizeof coding); |
| 4081 } | 4081 } |
| 4082 | 4082 |
| 4083 if (NILP (Vcoding_system_for_read) | 4083 if (NILP (current_buffer->enable_multibyte_characters) |
| 4084 && NILP (current_buffer->enable_multibyte_characters)) | 4084 && ! NILP (val)) |
| 4085 /* We must suppress all text conversion except for | 4085 /* We must suppress all character code conversion except for |
| 4086 end-of-line conversion. */ | 4086 end-of-line conversion. */ |
| 4087 setup_raw_text_coding_system (&coding); | 4087 setup_raw_text_coding_system (&coding); |
| 4088 } | 4088 } |
| 4089 | 4089 |
| 4090 if (inserted > 0 || coding.type == coding_type_ccl) | 4090 if (inserted > 0 || coding.type == coding_type_ccl) |