# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 994969578 0
# Node ID 6e498054580e54251487b0a3a695b715a07205d7
# Parent  44b779e58de64c57a1b0bd3eaf8d176a8cfddbaf
(Ffind_coding_systems_region_internal): If safe_codings
is t, don't try to append anything to it.

diff -r 44b779e58de6 -r 6e498054580e src/coding.c
--- a/src/coding.c	Thu Jul 12 16:29:51 2001 +0000
+++ b/src/coding.c	Thu Jul 12 20:26:18 2001 +0000
@@ -6409,7 +6409,9 @@
     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];