"Benjamin Riefenstahl" <[EMAIL PROTECTED]> wrote:
> Grep is our friend ;-). The coding-system (and its CCL programs) is
> created in lisp/international/ccl.el using (define-ccl-program ...).
> The parameter BUFFER_MAGNIFICATION for that function is set as 1 there
> for the encoders (ccl-encode-mule-utf-16le, ccl-encode-mule-utf-16be,
> ccl-encode-mule-utf-16le-with-signature,
> ccl-encode-mule-utf-16be-with-signature), so that might well be the
> problem.
>
> Can you try and replace that 1 with 2 and see if your problem goes
> away?
Yes, that did the trick. Can someone verify that this is the correct fix?
Thanks, Ben.
*** emacs/lisp/international/utf-16.el~ Sat Feb 26 10:46:46 2005
--- emacs/lisp/international/utf-16.el Sat Feb 26 10:47:03 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
! `(2
((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
! `(2
((write #xFE)
(write #xFF)
,@utf-16be-encode-loop))
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
