>>>>> On Thu, 13 Oct 2005 23:22:58 +0100, David Reitter <[EMAIL PROTECTED]>
>>>>> said:
> Copying a region with a number to the clipboard means that some
> additional characters seem to be copied.
That's BOM (Byte Order Mark) for UTF-16. Could you try the following
patch?
YAMAMOTO Mitsuharu
[EMAIL PROTECTED]
Index: lisp/term/mac-win.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term/mac-win.el,v
retrieving revision 1.54
diff -c -r1.54 mac-win.el
*** lisp/term/mac-win.el 1 Oct 2005 11:07:39 -0000 1.54
--- lisp/term/mac-win.el 14 Oct 2005 03:27:55 -0000
***************
*** 1198,1212 ****
(when (and (stringp data)
(setq data-type (get-text-property 0 'foreign-selection data)))
(cond ((eq data-type 'public.utf16-plain-text)
! (let ((encoded (and (fboundp 'mac-code-convert-string)
! (mac-code-convert-string data
! 'utf-16 coding))))
! (if encoded
! (let ((coding-save last-coding-system-used))
! (setq data (decode-coding-string encoded coding))
! (setq last-coding-system-used coding-save))
! (setq data
! (decode-coding-string data 'utf-16)))))
((eq data-type 'com.apple.traditional-mac-plain-text)
(setq data (decode-coding-string data coding)))
((eq data-type 'public.file-url)
--- 1198,1218 ----
(when (and (stringp data)
(setq data-type (get-text-property 0 'foreign-selection data)))
(cond ((eq data-type 'public.utf16-plain-text)
! (if (fboundp 'mac-code-convert-string)
! (let ((s (mac-code-convert-string data 'utf-16 coding)))
! (if s
! (setq data (decode-coding-string s coding))
! (setq data
! ;; (decode-coding-string data 'utf-16) is
! ;; not correct because
! ;; public.utf16-plain-text is defined as
! ;; native byte order, no BOM.
! (decode-coding-string
! (mac-code-convert-string data 'utf-16 'utf-8)
! 'utf-8))))
! ;; No `mac-code-convert-string' means non-Carbon, which
! ;; implies big endian.
! (setq data (decode-coding-string data 'utf-16be))))
((eq data-type 'com.apple.traditional-mac-plain-text)
(setq data (decode-coding-string data coding)))
((eq data-type 'public.file-url)
***************
*** 1323,1336 ****
(remove-text-properties 0 (length str) '(composition nil) str)
(cond
((eq type 'public.utf16-plain-text)
! (let (s)
! (when (and (fboundp 'mac-code-convert-string)
! (memq coding (find-coding-systems-string str)))
! (setq coding (coding-system-change-eol-conversion coding 'mac))
! (setq s (mac-code-convert-string
! (encode-coding-string str coding)
! coding 'utf-16)))
! (setq str (or s (encode-coding-string str 'utf-16-mac)))))
((eq type 'com.apple.traditional-mac-plain-text)
(let ((encodables (find-coding-systems-string str))
(rest mac-script-code-coding-systems))
--- 1329,1353 ----
(remove-text-properties 0 (length str) '(composition nil) str)
(cond
((eq type 'public.utf16-plain-text)
! (if (fboundp 'mac-code-convert-string)
! (let (s)
! (when (memq coding (find-coding-systems-string str))
! (setq coding
! (coding-system-change-eol-conversion coding 'mac))
! (setq s (mac-code-convert-string
! (encode-coding-string str coding)
! coding 'utf-16)))
! (setq str (or s
! ;; (encode-coding-string str
! ;; 'utf-16-mac) is not correct because
! ;; public.utf16-plain-text is defined
! ;; as native byte order, no BOM.
! (mac-code-convert-string
! (encode-coding-string str 'utf-8-mac)
! 'utf-8 'utf-16))))
! ;; No `mac-code-convert-string' means non-Carbon, which
! ;; implies big endian.
! (setq str (encode-coding-string str 'utf-16be-mac))))
((eq type 'com.apple.traditional-mac-plain-text)
(let ((encodables (find-coding-systems-string str))
(rest mac-script-code-coding-systems))
_______________________________________________
Emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
