Mercurial > hg > xemacs-beta

diff tests/automated/mule-tests.el @ 4672:938ffa3ffe4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revert to original language environment, tests/automated/mule-tests.el. tests/ChangeLog addition: 2009-08-10 Aidan Kehoe <kehoea@parhasard.net> * 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.
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 10 Aug 2009 16:25:08 +0100
parents 8905163c49c5
children 7e54adf407a1
line wrap: on
line diff
--- 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