(Ffind_coding_systems_region_internal): If safe_codings

is t, don't try to append anything to it.
This commit is contained in:
Stefan Monnier 2001-07-12 20:28:45 +00:00
parent 1c56232f0d
commit 176c92e68f
2 changed files with 10 additions and 4 deletions

View file

@ -6409,7 +6409,9 @@ DEFUN ("find-coding-systems-region-internal",
safe_codings = find_safe_codings (p2, p2end, safe_codings, work_table,
&single_byte_char_found);
if (!single_byte_char_found)
if (EQ (safe_codings, Qt))
; /* Nothing to be done. */
else if (!single_byte_char_found)
{
/* Append generic coding systems. */
Lisp_Object args[2];