(Ffind_coding_systems_region_internal): If safe_codings

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

diff --git a/src/ChangeLog b/src/ChangeLog
index 77f7b87175b85dbc00cb04640898d183d22c5f11..0174ffd8d80ece90709d31d3b0a935de382270c4 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-12  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * coding.c (Ffind_coding_systems_region_internal): If safe_codings
+       is t, don't try to append anything to it.
+
 2001-07-12  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * dired.c (file_name_completion): Pass dp->d_name to
@@ -13,9 +18,8 @@
        the event after checking it with x_handle_property_notify.
 
        * xselect.c (TRACE0, TRACE1, TRACE2): New macros, defined
-       depending on TRACE_SELECTION.  Replace fprintfs in #if 0 with 
-       TRACE macros to facilitate debugging.  Add additional trace
-       statements.
+       depending on TRACE_SELECTION.  Replace fprintfs in #if 0 with
+       TRACE macros to facilitate debugging.  Add additional trace statements.
        (toplevel): Add prototypes for file-local functions.
        (x_atom_to_symbol): Remove DPYINFO parameter.
 

diff --git a/src/coding.c b/src/coding.c
index 07233ee4d7e32019a79de0a1269f66c5e224c458..34773217cc742cd6211f490f132e38419eaf1b29 100644 (file)
--- 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];