CVS update by aidan xemacs/lisp/mule, mule-cmds.el ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 06/12/30 18:04:33

  Modified:    xemacs/lisp/mule cyrillic.el english.el greek.el
                        mule-cmds.el
Log:
Provide native-coding-systems for some language environments that didn't
have them.

Revision  Changes    Path
1.784     +13 -1     XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.783
retrieving revision 1.784
diff -u -p -r1.783 -r1.784
--- ChangeLog	2006/12/29 18:09:42	1.783
+++ ChangeLog	2006/12/30 17:04:26	1.784
@@ -1,3 +1,15 @@
+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. 
+
 2006-12-21  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* mule/cyrillic.el:
@@ -54,7 +66,7 @@
 	Unicode tables loaded at dump time are now in
 	mule/general-late.el. 
 	* simple.el (count-lines):
-	Add some backslashes to to parentheses in docstrings to help
+	Add some backslashes to parentheses in docstrings to help
 	fontification along. 
 	* simple.el (what-cursor-position):
 	Wrap a line to fit in 80 characters. 



1.14      +1 -0      XEmacs/xemacs/lisp/mule/cyrillic.el

Index: cyrillic.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/cyrillic.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -p -r1.13 -r1.14
--- cyrillic.el	2006/12/29 18:09:46	1.13
+++ cyrillic.el	2006/12/30 17:04:32	1.14
@@ -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)



1.8       +3 -0      XEmacs/xemacs/lisp/mule/english.el

Index: english.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/english.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- english.el	2006/11/05 22:31:37	1.7
+++ english.el	2006/12/30 17:04:32	1.8
@@ -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.")



1.8       +1 -0      XEmacs/xemacs/lisp/mule/greek.el

Index: greek.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/greek.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- greek.el	2006/12/29 18:09:46	1.7
+++ greek.el	2006/12/30 17:04:32	1.8
@@ -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")



1.31      +1 -1      XEmacs/xemacs/lisp/mule/mule-cmds.el

Index: mule-cmds.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/mule-cmds.el,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -p -r1.30 -r1.31
--- mule-cmds.el	2006/12/29 18:09:47	1.30
+++ mule-cmds.el	2006/12/30 17:04:32	1.31
@@ -1093,7 +1093,7 @@ environment.  "
                  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)