# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1031679458 0
# Node ID e83401f8d61cbfc28d4833b75a424d1c90e5a5ad
# Parent  cd0bb50410b8c15ac7c256e457ae018280f273b1
(utf-16-le-pre-write-conversion)
(utf-16-be-pre-write-conversion): Deleted.
(mule-utf-16-le, mule-utf-16-be): Register encoding translation
table.

diff -r cd0bb50410b8 -r e83401f8d61c lisp/international/utf-16.el
--- a/lisp/international/utf-16.el	Tue Sep 10 16:50:07 2002 +0000
+++ b/lisp/international/utf-16.el	Tue Sep 10 17:37:38 2002 +0000
@@ -206,22 +206,6 @@
 
 (makunbound 'utf-16-decode-to-ucs)
 
-(defun utf-16-le-pre-write-conversion (beg end)
-  "Semi-dummy pre-write function effectively to autoload ucs-tables."
-  ;; Ensure translation table is loaded.
-  (require 'ucs-tables)
-  ;; Don't do this again.
-  (coding-system-put 'mule-utf-16-le 'pre-write-conversion nil)
-  nil)
-
-(defun utf-16-be-pre-write-conversion (beg end)
-  "Semi-dummy pre-write function effectively to autoload ucs-tables."
-  ;; Ensure translation table is loaded.
-  (require 'ucs-tables)
-  ;; Don't do this again.
-  (coding-system-put 'mule-utf-16-be 'pre-write-conversion nil)
-  nil)
-
 (let ((doc "
 
 Assumes and ignores the leading two-byte signature.
@@ -278,7 +262,9 @@
      (coding-category . coding-category-utf-16-be)
      (valid-codes (0 . 255))
      (pre-write-conversion . utf-16-be-pre-write-conversion)))
-  )
+
+  (register-char-codings 'mule-utf-16-le ucs-mule-to-mule-unicode)
+  (register-char-codings 'mule-utf-16-be ucs-mule-to-mule-unicode))
 
 (define-coding-system-alias 'utf-16-le 'mule-utf-16-le)
 (define-coding-system-alias 'utf-16-be 'mule-utf-16-be)