From: Kenichi Handa <handa@m17n.org>
Date: Thu, 7 Jul 2005 06:18:59 +0000 (+0000)
Subject: Declare that all UTF-16-based coding
X-Git-Tag: emacs-pretest-22.0.90~8328
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9be26751cc1af15035ff9c40aafc698f8c56f30;p=emacs.git

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 65730e553b9..bbe2ab37bd8 100644
--- 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)))
 )