Re: copying to clipboard silently discards lines

["Chong Yidong" <cyd@stupidchicken.com>]

"Benjamin Riefenstahl" <b.riefenstahl@turtle-trading.net> 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))