206 |
|
|
207 |
(makunbound 'utf-16-decode-to-ucs) |
(makunbound 'utf-16-decode-to-ucs) |
208 |
|
|
|
(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) |
|
|
|
|
209 |
(let ((doc " |
(let ((doc " |
210 |
|
|
211 |
Assumes and ignores the leading two-byte signature. |
Assumes and ignores the leading two-byte signature. |
262 |
(coding-category . coding-category-utf-16-be) |
(coding-category . coding-category-utf-16-be) |
263 |
(valid-codes (0 . 255)) |
(valid-codes (0 . 255)) |
264 |
(pre-write-conversion . utf-16-be-pre-write-conversion))) |
(pre-write-conversion . utf-16-be-pre-write-conversion))) |
265 |
) |
|
266 |
|
(register-char-codings 'mule-utf-16-le ucs-mule-to-mule-unicode) |
267 |
|
(register-char-codings 'mule-utf-16-be ucs-mule-to-mule-unicode)) |
268 |
|
|
269 |
(define-coding-system-alias 'utf-16-le 'mule-utf-16-le) |
(define-coding-system-alias 'utf-16-le 'mule-utf-16-le) |
270 |
(define-coding-system-alias 'utf-16-be 'mule-utf-16-be) |
(define-coding-system-alias 'utf-16-be 'mule-utf-16-be) |