/[emacs]/emacs/lisp/term/mac-win.el
ViewVC logotype

Diff of /emacs/lisp/term/mac-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.45 by ttn, Thu May 12 01:35:20 2005 UTC revision 1.46 by mituharu, Fri May 13 08:51:35 2005 UTC
# Line 1328  in `selection-converter-alist', which se Line 1328  in `selection-converter-alist', which se
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

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26