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, |