[COMMIT] Fix make check in the presence of variant language environments
APPROVE COMMIT
NOTE: This patch has been committed.
tests/ChangeLog addition:
2007-12-04 Aidan Kehoe <kehoea(a)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?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches