[Emacs-diffs] Changes to emacs/lisp/international/utf-16.el

[Dave Love]

Index: emacs/lisp/international/utf-16.el
diff -c emacs/lisp/international/utf-16.el:1.2 
emacs/lisp/international/utf-16.el:1.3
*** emacs/lisp/international/utf-16.el:1.2      Wed Jul 24 18:17:40 2002
--- emacs/lisp/international/utf-16.el  Tue Sep 10 13:37:38 2002
***************
*** 206,227 ****
  
  (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.
--- 206,211 ----
***************
*** 278,284 ****
       (coding-category . coding-category-utf-16-be)
       (valid-codes (0 . 255))
       (pre-write-conversion . utf-16-be-pre-write-conversion)))
!   )
  
  (define-coding-system-alias 'utf-16-le 'mule-utf-16-le)
  (define-coding-system-alias 'utf-16-be 'mule-utf-16-be)
--- 262,270 ----
       (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)