[Emacs-diffs] /srv/bzr/emacs/trunk r106741: coding.c: (Fdefine_coding_system_internal): Make an utf-8 base coding-system ASCII compatible only when it does not produce BOM on encoding (Bug#10383).

[Kenichi Handa]

------------------------------------------------------------
revno: 106741 [merge]
committer: Kenichi Handa <address@hidden>
branch nick: trunk
timestamp: Wed 2011-12-28 16:57:47 +0900
message:
  coding.c: (Fdefine_coding_system_internal): Make an utf-8 base coding-system 
ASCII compatible only when it does not produce BOM on encoding (Bug#10383).
modified:
  src/ChangeLog
  src/coding.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2011-12-26 18:00:38 +0000
+++ b/src/ChangeLog     2011-12-28 07:55:49 +0000
@@ -1,3 +1,9 @@
+2011-12-28  Kenichi Handa  <address@hidden>
+
+       * coding.c (Fdefine_coding_system_internal): Make an utf-8 base
+       coding-system ASCII compatible only when it does not produce BOM
+       on encoding (Bug#10383).
+
 2011-12-26  Jan Djärv  <address@hidden>
 
        * xmenu.c (x_menu_wait_for_event): Use xg_select for Gtk3 so menus

=== modified file 'src/coding.c'
--- a/src/coding.c      2011-12-11 12:08:51 +0000
+++ b/src/coding.c      2011-12-28 07:55:49 +0000
@@ -9999,8 +9999,6 @@
     {
       Lisp_Object bom;
 
-      CODING_ATTR_ASCII_COMPAT (attrs) = Qt;
-
       if (nargs < coding_arg_utf8_max)
        goto short_args;
 
@@ -10014,6 +10012,8 @@
          CHECK_CODING_SYSTEM (val);
        }
       ASET (attrs, coding_attr_utf_bom, bom);
+      if (NILP (bom))
+       CODING_ATTR_ASCII_COMPAT (attrs) = Qt;
 
       category = (CONSP (bom) ? coding_category_utf_8_auto
                  : NILP (bom) ? coding_category_utf_8_nosig