/[emacs]/emacs/lisp/international/utf-16.el
ViewVC logotype

Diff of /emacs/lisp/international/utf-16.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by fx, Wed Jul 24 22:17:40 2002 UTC revision 1.3 by fx, Tue Sep 10 17:37:38 2002 UTC
# Line 206  Others are encoded as U+FFFD.") Line 206  Others are encoded as U+FFFD.")
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.
# Line 278  are encoded as U+FFFD.")) Line 262  are encoded as U+FFFD."))
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)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26