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

[Kenichi Handa]

Index: emacs/lisp/international/utf-16.el
diff -c emacs/lisp/international/utf-16.el:1.14 
emacs/lisp/international/utf-16.el:1.15
*** emacs/lisp/international/utf-16.el:1.14     Sat Jun 12 02:18:36 2004
--- emacs/lisp/international/utf-16.el  Mon Feb 28 07:15:42 2005
***************
*** 391,397 ****
  
  
  (define-ccl-program ccl-encode-mule-utf-16le
!   `(1
      ,utf-16le-encode-loop)
    "Encode to UTF-16LE (little endian without signature).
  Characters from the charsets ascii, eight-bit-control,
--- 391,397 ----
  
  
  (define-ccl-program ccl-encode-mule-utf-16le
!   `(2
      ,utf-16le-encode-loop)
    "Encode to UTF-16LE (little endian without signature).
  Characters from the charsets ascii, eight-bit-control,
***************
*** 401,407 ****
  Others are encoded as U+FFFD.")
  
  (define-ccl-program ccl-encode-mule-utf-16be
!   `(1
      ,utf-16be-encode-loop)
    "Encode to UTF-16BE (big endian without signature).
  Characters from the charsets ascii, eight-bit-control,
--- 401,407 ----
  Others are encoded as U+FFFD.")
  
  (define-ccl-program ccl-encode-mule-utf-16be
!   `(2
      ,utf-16be-encode-loop)
    "Encode to UTF-16BE (big endian without signature).
  Characters from the charsets ascii, eight-bit-control,
***************
*** 411,417 ****
  Others are encoded as U+FFFD.")
  
  (define-ccl-program ccl-encode-mule-utf-16le-with-signature
!   `(1
      ((write #xFF)
       (write #xFE)
       ,@utf-16le-encode-loop))
--- 411,417 ----
  Others are encoded as U+FFFD.")
  
  (define-ccl-program ccl-encode-mule-utf-16le-with-signature
!   `(4
      ((write #xFF)
       (write #xFE)
       ,@utf-16le-encode-loop))
***************
*** 423,429 ****
  Others are encoded as U+FFFD.")
  
  (define-ccl-program ccl-encode-mule-utf-16be-with-signature
!   `(1
      ((write #xFE)
       (write #xFF)
       ,@utf-16be-encode-loop))
--- 423,429 ----
  Others are encoded as U+FFFD.")
  
  (define-ccl-program ccl-encode-mule-utf-16be-with-signature
!   `(4
      ((write #xFE)
       (write #xFF)
       ,@utf-16be-encode-loop))