From: Kenichi Handa <handa@m17n.org>
Date: Sat, 21 Jun 2003 02:25:19 +0000 (+0000)
Subject: (ucs-unify-8859, ucs-fragment-8859): Adjusted for the name change:
X-Git-Tag: ttn-vms-21-2-B4~9597
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=566f38a0e0db1af7575b3f8babd3deb24d28248f;p=emacs.git

(ucs-unify-8859, ucs-fragment-8859): Adjusted for the name change:
xxx-utf-16-{le,be} -> xxx-utf-16{le,be}.
---

diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el
index f182b3d1928..b694165860f 100644
--- a/lisp/international/ucs-tables.el
+++ b/lisp/international/ucs-tables.el
@@ -1180,7 +1180,9 @@ everything on input operations."
 
   (when for-encode
     ;; Make mule-utf-* encode all characters in ucs-mule-to-mule-unicode.
-    (let ((coding-list '(mule-utf-8 mule-utf-16-be mule-utf-16-le)))
+    (let ((coding-list '(mule-utf-8 mule-utf-16be mule-utf-16le
+				    mule-utf-16be-with-signature
+				    mule-utf-16le-with-signature)))
       (define-translation-table 'utf-translation-table-for-encode
 	ucs-mule-to-mule-unicode)
       (dolist (coding coding-list)
@@ -1219,7 +1221,9 @@ unification on input operations."
     ;; ucs-mule-to-mule-unicode except what was originally supported
     ;; and what is translated by utf-translation-table-for-decode when
     ;; `utf-fragment-on-decoding' is non-nil.
-    (let ((coding-list '(mule-utf-8 mule-utf-16-be mule-utf-16-le))
+    (let ((coding-list '(mule-utf-8 mule-utf-16be mule-utf-16le
+				    mule-utf-16be-with-signature
+				    mule-utf-16le-with-signature))
 	  (safe (coding-system-get 'mule-utf-8 'safe-chars)))
       (dolist (coding coding-list)
 	(set-char-table-parent (coding-system-get coding 'safe-chars) nil))