mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(mac-select-convert-to-string): Try coding

Browse Source 
systems in mac-script-code-coding-systems if specified one cannot
encode string for `com.apple.traditional-mac-plain-text'.
This commit is contained in:
YAMAMOTO Mitsuharu 2005-05-13 08:51:35 +00:00
parent 66b8e07b28
commit 5a537870e3
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/term/mac-win.el
View File

@ -1328,6 +1328,13 @@ in `selection-converter-alist', which see."
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))
(unless (memq coding encodables)
(while (and rest (not (memq (cdar rest) encodables)))
(setq rest (cdr rest)))
(if rest
(setq coding (cdar rest)))))
(setq coding (coding-system-change-eol-conversion coding 'mac))
(setq str (encode-coding-string str coding)))
(t