# HG changeset patch
# User aidan
# Date 1193395866 0
# Node ID b98680995adb8b9e1eacb078bc8c4430e7b02c20
# Parent  9e838285ba76b5873e58127a6da791c09534dc2b
[xemacs-hg @ 2007-10-26 10:51:02 by aidan]
Couple of tweaks to mule/latin.el; correct the POSIX code for Polish,
explicitly specify the tutorial coding system when a tutorial is provided.

diff -r 9e838285ba76 -r b98680995adb lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Oct 25 21:51:20 2007 +0000
+++ b/lisp/ChangeLog	Fri Oct 26 10:51:06 2007 +0000
@@ -1,3 +1,11 @@
+2007-10-26  Aidan Kehoe  <kehoea@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@parhasard.net>
 
 	* byte-optimize.el:
diff -r 9e838285ba76 -r b98680995adb lisp/mule/latin.el
--- a/lisp/mule/latin.el	Thu Oct 25 21:51:20 2007 +0000
+++ b/lisp/mule/latin.el	Fri Oct 26 10:51:06 2007 +0000
@@ -681,7 +681,7 @@
       ("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 @@
        (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 "\