mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-18 20:00:36 -08:00
Code Issues Projects Releases Wiki Activity

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).

Browse source
This commit is contained in:
Kenichi Handa 2011-12-28 16:55:49 +09:00
parent 29a8b279e3
commit 0e5317f7e4
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/coding.c
View file

@ -9999,8 +9999,6 @@ usage: (define-coding-system-internal ...) */)
{
Lisp_Object bom;
CODING_ATTR_ASCII_COMPAT (attrs) = Qt;
if (nargs < coding_arg_utf8_max)
goto short_args;
@ -10014,6 +10012,8 @@ usage: (define-coding-system-internal ...) */)
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