CVS update by aidan xemacs/lisp/mule ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/10/26 12:51:06

  Modified:    xemacs/lisp/mule latin.el
Log:
Couple of tweaks to mule/latin.el; correct the POSIX code for Polish,
explicitly specify the tutorial coding system when a tutorial is provided.

Revision  Changes    Path
1.853     +8 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.852
retrieving revision 1.853
diff -u -p -r1.852 -r1.853
--- ChangeLog	2007/10/15 10:55:49	1.852
+++ ChangeLog	2007/10/26 10:51:02	1.853
@@ -1,3 +1,11 @@
+2007-10-26  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* mule/latin.el:
+	"pl" is the normal POSIX language code for Polish, not "po"; if a
+	tutorial is provided, set tutorial-coding-system explicitly based
+	on the language environment coding system, to override confusion
+	that can arise with the variant language environments.
+
 2007-10-01  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* byte-optimize.el:



1.10      +3 -2      XEmacs/xemacs/lisp/mule/latin.el

Index: latin.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/latin.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- latin.el	2007/08/26 20:00:42	1.9
+++ latin.el	2007/10/26 10:51:06	1.10
@@ -681,7 +681,7 @@ German (Deutsch S,A|(Bd)	Gr,A|_(B Go
       ("Czech" ("cs" "cz") "TUTORIAL.cs" "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!"
        "latin-2-postfix")
       ("Hungarian" ("hungarian" "hu"))
-      ("Polish" "po" "TUTORIAL.pl")
+      ("Polish" ("pl" "po") "TUTORIAL.pl") ;; #### Is "po" actually used?
       ("Romanian" "ro" "TUTORIAL.ro" "Bun,Bc(B ziua, bine a,B~(Bi venit!"
        "latin-2-postfix")
       ("Serbian" "sr")
@@ -728,7 +728,8 @@ Generic language environment for %s (%s)
        (coding-priority ,codesys)
        (native-coding-system ,codesys)
        ,@(if locale `((locale . ,locale)))
-       ,@(if tutorial `((tutorial . ,tutorial)))
+       ,@(if tutorial `((tutorial . ,tutorial)
+			(tutorial-coding-system ,codesys)))
        ,@(if sample-text `((sample-text . ,sample-text)))
        (input-method . ,(or input-method default-input))
        (documentation . ,(format "\