commit: Revert to original language environment, tests/automated/mule-tests.el.

changeset: 4672:938ffa3ffe4d tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Mon Aug 10 16:25:08 2009 +0100 files: tests/ChangeLog tests/automated/mule-tests.el description: Revert to original language environment, tests/automated/mule-tests.el. tests/ChangeLog addition: 2009-08-10 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/mule-tests.el: Revert to the original language environment once we've tested all the others, preventing things like a Chinese terminal coding system being selected when you actually have a UTF-8 tty. diff -r e9b88e997479 -r 938ffa3ffe4d tests/ChangeLog --- a/tests/ChangeLog Mon Aug 10 16:22:09 2009 +0100 +++ b/tests/ChangeLog Mon Aug 10 16:25:08 2009 +0100 ＠＠ -1,3 +1,10 ＠＠ +2009-08-10 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * automated/mule-tests.el: + Revert to the original language environment once we've tested all + the others, preventing things like a Chinese terminal coding + system being selected when you actually have a UTF-8 tty. + 2009-07-13 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/mule-tests.el: diff -r e9b88e997479 -r 938ffa3ffe4d tests/automated/mule-tests.el --- a/tests/automated/mule-tests.el Mon Aug 10 16:22:09 2009 +0100 +++ b/tests/automated/mule-tests.el Mon Aug 10 16:25:08 2009 +0100 ＠＠ -575,6 +575,7 ＠＠ for language in (mapcar #'car language-info-alist) with language-input-method = nil with native-coding-system = nil + with original-language-environment = current-language-environment do ;; s-l-e can call #'require, which says "Loading ..." (Silence-Message (set-language-environment language)) ＠＠ -613,7 +614,8 ＠＠ ;; We don't have the appropriate POSIX locales to test with a ;; native-coding-system that is a function. (unless (functionp coding-system) - (Assert (coding-system-p (find-coding-system coding-system)))))) + (Assert (coding-system-p (find-coding-system coding-system))))) + finally (set-language-environment original-language-environment)) (with-temp-buffer (flet _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches