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

[Stephen J. Turnbull]

QUERY

If you look up the history of this code, you'll almost surely find
that the reason for the POSIX_ME_NOT extension was to avoid invoking
cperl-mode when editing the TUTORIAL.

Please make sure that doesn't happen, especially in 21.4.

Aidan Kehoe writes:
 > 
 > 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)
 > 
 > _______________________________________________
 > XEmacs-Patches mailing list
 > XEmacs-Patches at xemacs.org
 > http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches