mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-20 12:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(setup_coding_system): Set coding->common_flags

Browse source 
correctly for raw-text.
(consume_chars): On encoding unibyte text by raw-text, don't check
multibyte form.
(encode_coding): On encoding by raw-text, never use translation
tables.
This commit is contained in:
Kenichi Handa 2004-04-28 12:52:51 +00:00
parent 55961e9e46
commit ea29edf291
1 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/coding.c
View file

@ -5093,6 +5093,13 @@ setup_coding_system (coding_system, coding)
coding->detector = NULL;
coding->decoder = decode_coding_raw_text;
coding->encoder = encode_coding_raw_text;
if (! EQ (eol_type, Qunix))
{
coding->common_flags |= CODING_REQUIRE_DECODING_MASK;
if (! VECTORP (eol_type))
coding->common_flags |= CODING_REQUIRE_ENCODING_MASK;
}
}
return;
@ -6381,7 +6388,9 @@ consume_chars (coding, translation_table, max_lookup)
{
EMACS_INT bytes;
if ((bytes = MULTIBYTE_LENGTH (src, src_end)) > 0)
if (coding->encoder == encode_coding_raw_text)
c = *src++, pos++;
else if ((bytes = MULTIBYTE_LENGTH (src, src_end)) > 0)
c = STRING_CHAR_ADVANCE (src), pos += bytes;
else
c = BYTE8_TO_CHAR (*src), src++, pos++;
@ -6466,7 +6475,10 @@ encode_coding (coding)
int max_lookup;
attrs = CODING_ID_ATTRS (coding->id);
translation_table = get_translation_table (attrs, 1, &max_lookup);
if (coding->encoder == encode_coding_raw_text)
translation_table = Qnil, max_lookup = 0;
else
translation_table = get_translation_table (attrs, 1, &max_lookup);
if (BUFFERP (coding->dst_object))
{