Mercurial > hg > xemacs-beta

changeset 4305:2bb3630ea397

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-12-04 20:40:49 by aidan] Fix make check in the presence of variant language environments.
author aidan
date Tue, 04 Dec 2007 20:40:51 +0000
parents 4ac3a83867c6
children 0691e049c9a2
files tests/ChangeLog tests/automated/mule-tests.el
diffstat 2 files changed, 14 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/tests/ChangeLog	Tue Dec 04 20:35:31 2007 +0000
+++ b/tests/ChangeLog	Tue Dec 04 20:40:51 2007 +0000
@@ -1,3 +1,10 @@
+2007-12-04  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* automated/mule-tests.el (featurep):
+	The native coding system specified in the language environment can
+	be either a list (which we used to handle fine) or a single coding
+	system expression (which we failed on). Handle the latter case. 
+
 2007-11-29  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* automated/mule-tests.el:
--- a/tests/automated/mule-tests.el	Tue Dec 04 20:35:31 2007 +0000
+++ b/tests/automated/mule-tests.el	Tue Dec 04 20:40:51 2007 +0000
@@ -548,6 +548,7 @@
   (loop
     for language in (mapcar #'car language-info-alist)
     with language-input-method = nil
+    with native-coding-system = nil
     do
     ;; s-l-e can call #'require, which says "Loading ..."
     (Silence-Message (set-language-environment language))
@@ -577,8 +578,12 @@
       (Assert (charsetp (find-charset charset))))
     (dolist (coding-system (get-language-info language 'coding-system))
       (Assert (coding-system-p (find-coding-system coding-system))))
-    (dolist (coding-system (get-language-info language
-                                              'native-coding-system))
+    (dolist (coding-system
+             (if (listp (setq native-coding-system
+                              (get-language-info language
+                                                 'native-coding-system)))
+                 native-coding-system
+               (list native-coding-system)))
       ;; We don't have the appropriate POSIX locales to test with a
       ;; native-coding-system that is a function.
       (unless (functionp coding-system)