[COMMIT] Provide native-coding-systems for some language environments that didn't have them

[Aidan Kehoe]

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 at parhasard.net>

	* 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.