Mercurial > emacs
comparison src/coding.c @ 38391:6e498054580e
(Ffind_coding_systems_region_internal): If safe_codings
is t, don't try to append anything to it.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 12 Jul 2001 20:26:18 +0000 |
parents | 8a086ca42e43 |
children | f5a9d9707da5 |
comparison
equal
deleted
inserted
replaced
38390:44b779e58de6 | 38391:6e498054580e |
---|---|
6407 &single_byte_char_found); | 6407 &single_byte_char_found); |
6408 if (p2 < p2end) | 6408 if (p2 < p2end) |
6409 safe_codings = find_safe_codings (p2, p2end, safe_codings, work_table, | 6409 safe_codings = find_safe_codings (p2, p2end, safe_codings, work_table, |
6410 &single_byte_char_found); | 6410 &single_byte_char_found); |
6411 | 6411 |
6412 if (!single_byte_char_found) | 6412 if (EQ (safe_codings, Qt)) |
6413 ; /* Nothing to be done. */ | |
6414 else if (!single_byte_char_found) | |
6413 { | 6415 { |
6414 /* Append generic coding systems. */ | 6416 /* Append generic coding systems. */ |
6415 Lisp_Object args[2]; | 6417 Lisp_Object args[2]; |
6416 args[0] = safe_codings; | 6418 args[0] = safe_codings; |
6417 args[1] = Fchar_table_extra_slot (Vchar_coding_system_table, | 6419 args[1] = Fchar_table_extra_slot (Vchar_coding_system_table, |