[COMMIT] Fix make check in the presence of variant language environments

[Aidan Kehoe]

APPROVE COMMIT

NOTE: This patch has been committed.

tests/ChangeLog addition:

2007-12-04  Aidan Kehoe  <kehoea at 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. 


XEmacs Trunk source patch:
Diff command:   cvs -q diff -Nu
Files affected: tests/automated/mule-tests.el
===================================================================
RCS

Index: tests/automated/mule-tests.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/automated/mule-tests.el,v
retrieving revision 1.21
diff -u -u -r1.21 mule-tests.el
--- tests/automated/mule-tests.el	2007/11/29 13:38:21	1.21
+++ tests/automated/mule-tests.el	2007/12/04 20:39:54
@@ -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)

-- 
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?