(Ffind_coding_systems_region_internal): If safe_codings

is t, don't try to append anything to it.

1 files changed, 3 insertions, 1 deletions

diff --git a/src/coding.c b/src/coding.c
index 07233ee4d7e..34773217cc7 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -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];