diff options
author | Dave Love <[email protected]> | 2002-09-10 17:37:38 +0000 |
---|---|---|
committer | Dave Love <[email protected]> | 2002-09-10 17:37:38 +0000 |
commit | 1deeaf1d3027abb2e16cd486912bef9e3852c8ca (patch) | |
tree | 6af0d686e7fcd1e559fe859251afeba3549a913c /lisp | |
parent | 3e6be27948c7b5b5ed213297450bccc47e0d4eec (diff) |
(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.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/international/utf-16.el | 20 |
1 files changed, 3 insertions, 17 deletions
diff --git a/lisp/international/utf-16.el b/lisp/international/utf-16.el index 947fb33631..7786795f4a 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) |