Also changes a line in ChangeLog where ‘to’ was repeated needlessly. APPROVE COMMIT NOTE: This patch has been committed. lisp/ChangeLog addition: 2006-12-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; * mule/cyrillic.el ("Cyrillic-ISO"): * mule/english.el ("English"): * mule/greek.el ("Greek"): Specify a native-coding-system for each of these language environments--since that is what is examined and relevant when sniffing the locale at startup. * mule/mule-cmds.el (create-variant-language-environment): A language environment's coding-priority is a list of coding systems, not coding categories. Treat it as such. XEmacs Trunk source patch: Diff command: cvs -q diff -Nu Files affected: lisp/mule/mule-cmds.el =================================================================== RCS lisp/mule/greek.el =================================================================== RCS lisp/mule/english.el =================================================================== RCS lisp/mule/cyrillic.el =================================================================== RCS Index: lisp/mule/cyrillic.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/cyrillic.el,v retrieving revision 1.13 diff -u -u -r1.13 cyrillic.el --- lisp/mule/cyrillic.el 2006/12/29 18:09:46 1.13 +++ lisp/mule/cyrillic.el 2006/12/30 17:00:50 ＠＠ -127,6 +127,7 ＠＠ "Cyrillic-ISO" '((charset cyrillic-iso8859-5) (tutorial . "TUTORIAL.ru") (coding-system iso-8859-5) + (native-coding-system iso-8859-5) (coding-priority iso-8859-5) (input-method . "cyrillic-yawerty") (features cyril-util) Index: lisp/mule/english.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/english.el,v retrieving revision 1.7 diff -u -u -r1.7 english.el --- lisp/mule/english.el 2006/11/05 22:31:37 1.7 +++ lisp/mule/english.el 2006/12/30 17:00:50 ＠＠ -50,6 +50,9 ＠＠ "English" '((tutorial . "TUTORIAL") (locale "en" "C") (charset ascii) + (coding-system iso-8859-1) + (coding-priority iso-8859-1) + (native-coding-system iso-8859-1) (sample-text . "Hello!, Hi!, How are you?") (documentation . "\ Nothing special is needed to handle English.") Index: lisp/mule/greek.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/greek.el,v retrieving revision 1.7 diff -u -u -r1.7 greek.el --- lisp/mule/greek.el 2006/12/29 18:09:46 1.7 +++ lisp/mule/greek.el 2006/12/30 17:00:50 ＠＠ -130,6 +130,7 ＠＠ "Greek" '((charset greek-iso8859-7) (coding-system iso-8859-7) (coding-priority iso-8859-7) + (native-coding-system iso-8859-7) (locale "el_GR.iso88597" "el_GR.greek8" "el_GR" "greek" "el") (input-method . "greek") (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B") Index: lisp/mule/mule-cmds.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/mule-cmds.el,v retrieving revision 1.30 diff -u -u -r1.30 mule-cmds.el --- lisp/mule/mule-cmds.el 2006/12/29 18:09:47 1.30 +++ lisp/mule/mule-cmds.el 2006/12/30 17:00:51 ＠＠ -1093,7 +1093,7 ＠＠ coding-system) 'coding-system (cons coding-system (cdr (assoc 'coding-system (cdr langenv))))) - 'coding-priority (cons (coding-system-category coding-system) + 'coding-priority (cons coding-system (cdr (assq 'coding-priority (cdr langenv)))))))) (defun get-language-environment-from-locale (locale) -- When I was in the scouts, the leader told me to pitch a tent. I couldn't find any pitch, so I used creosote. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches