Mercurial > emacs
changeset 47384:e83401f8d61c
(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.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 10 Sep 2002 17:37:38 +0000 |
| parents | cd0bb50410b8 |
| children | d46bcfbfdda0 |
| files | lisp/international/utf-16.el |
| diffstat | 1 files changed, 3 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- 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)