From 1deeaf1d3027abb2e16cd486912bef9e3852c8ca Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 10 Sep 2002 17:37:38 +0000 Subject: [PATCH] (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. --- lisp/international/utf-16.el | 20 +++----------------- 1 file changed, 3 insertions(+), 17 deletions(-) diff --git a/lisp/international/utf-16.el b/lisp/international/utf-16.el index 947fb336318..7786795f4a5 100644 --- a/lisp/international/utf-16.el +++ b/lisp/international/utf-16.el @@ -206,22 +206,6 @@ Others are encoded as U+FFFD.") (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 @@ are encoded as U+FFFD.")) (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) -- 2.39.5