Declare that all UTF-16-based coding

systems ASCII-incompatible.

diff --git a/lisp/international/utf-16.el b/lisp/international/utf-16.el
index 65730e553b9ad1035bdfd949e712c88b6182058a..bbe2ab37bd85c648e0cc5a3fa4a3d3a915300afe 100644 (file)
--- a/lisp/international/utf-16.el
+++ b/lisp/international/utf-16.el
@@ -504,6 +504,7 @@ sequence representing U+FFFD (REPLACEMENT CHARACTER).")
    '(ccl-decode-mule-utf-16le . ccl-encode-mule-utf-16le)
    `(,@props
      (post-read-conversion . utf-8-post-read-conversion)
+     (ascii-incompatible . t)
      (mime-charset . utf-16le)))
 
   (make-coding-system
@@ -515,6 +516,7 @@ sequence representing U+FFFD (REPLACEMENT CHARACTER).")
    '(ccl-decode-mule-utf-16be . ccl-encode-mule-utf-16be)
    `(,@props
      (post-read-conversion . utf-8-post-read-conversion)
+     (ascii-incompatible . t)
      (mime-charset . utf-16be)))
 
   (make-coding-system
@@ -528,6 +530,7 @@ sequence representing U+FFFD (REPLACEMENT CHARACTER).")
    `(,@props
      (post-read-conversion . utf-8-post-read-conversion)
      (coding-category . coding-category-utf-16-le)
+     (ascii-incompatible . t)
      (mime-charset . utf-16)))
 
   (make-coding-system
@@ -541,6 +544,7 @@ sequence representing U+FFFD (REPLACEMENT CHARACTER).")
    `(,@props
      (post-read-conversion . utf-8-post-read-conversion)
      (coding-category . coding-category-utf-16-be)
+     (ascii-incompatible . t)
      (mime-charset . utf-16)))
 
   (make-coding-system
@@ -553,6 +557,7 @@ sequence representing U+FFFD (REPLACEMENT CHARACTER).")
    `(,@props
      (post-read-conversion . mule-utf-16-post-read-conversion)
      (coding-category . coding-category-utf-16-be)
+     (ascii-incompatible . t)
      (mime-charset . utf-16)))
 )