APPROVE COMMIT NOTE: This patch has been committed. tests/ChangeLog addition: 2007-12-04 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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