1328 |
coding 'utf-16))) |
coding 'utf-16))) |
1329 |
(setq str (or s (encode-coding-string str 'utf-16-mac))))) |
(setq str (or s (encode-coding-string str 'utf-16-mac))))) |
1330 |
((eq type 'com.apple.traditional-mac-plain-text) |
((eq type 'com.apple.traditional-mac-plain-text) |
1331 |
|
(let ((encodables (find-coding-systems-string str)) |
1332 |
|
(rest mac-script-code-coding-systems)) |
1333 |
|
(unless (memq coding encodables) |
1334 |
|
(while (and rest (not (memq (cdar rest) encodables))) |
1335 |
|
(setq rest (cdr rest))) |
1336 |
|
(if rest |
1337 |
|
(setq coding (cdar rest))))) |
1338 |
(setq coding (coding-system-change-eol-conversion coding 'mac)) |
(setq coding (coding-system-change-eol-conversion coding 'mac)) |
1339 |
(setq str (encode-coding-string str coding))) |
(setq str (encode-coding-string str coding))) |
1340 |
(t |
(t |