[COMMIT] Couple of tweaks to mule/latin.el

[Aidan Kehoe]

APPROVE COMMIT

NOTE: This patch has been committed.

lisp/ChangeLog addition:

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.


XEmacs Trunk source patch:
Diff command:   cvs -q diff -u
Files affected: lisp/mule/latin.el
===================================================================
RCS

Index: lisp/mule/latin.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/latin.el,v
retrieving revision 1.9
diff -u -r1.9 latin.el
--- lisp/mule/latin.el	2007/08/26 20:00:42	1.9
+++ lisp/mule/latin.el	2007/10/26 10:48:18
@@ -681,7 +681,7 @@
       ("Czech" ("cs" "cz") "TUTORIAL.cs" "Přejeme vám hezký 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ă ziua, bine aţi 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 "\

-- 
On the quay of the little Black Sea port, where the rescued pair came once
more into contact with civilization, Dobrinton was bitten by a dog which was
assumed to be mad, though it may only have been indiscriminating. (Saki)