Mercurial > hg > xemacs-beta

comparison lisp/mule/latin.el @ 4240:b98680995adb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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.
author aidan
date Fri, 26 Oct 2007 10:51:06 +0000
parents edb00a8b4eff
children f4c3ffe60a4f
comparison
equal deleted inserted replaced
4239:9e838285ba76 4240:b98680995adb
679 (("Albanian" "sq") 679 (("Albanian" "sq")
680 ("Croatian" ("hrvatski" "hr") "TUTORIAL.hr") 680 ("Croatian" ("hrvatski" "hr") "TUTORIAL.hr")
681 ("Czech" ("cs" "cz") "TUTORIAL.cs" "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!" 681 ("Czech" ("cs" "cz") "TUTORIAL.cs" "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!"
682 "latin-2-postfix") 682 "latin-2-postfix")
683 ("Hungarian" ("hungarian" "hu")) 683 ("Hungarian" ("hungarian" "hu"))
684 ("Polish" "po" "TUTORIAL.pl") 684 ("Polish" ("pl" "po") "TUTORIAL.pl") ;; #### Is "po" actually used?
685 ("Romanian" "ro" "TUTORIAL.ro" "Bun,Bc(B ziua, bine a,B~(Bi venit!" 685 ("Romanian" "ro" "TUTORIAL.ro" "Bun,Bc(B ziua, bine a,B~(Bi venit!"
686 "latin-2-postfix") 686 "latin-2-postfix")
687 ("Serbian" "sr") 687 ("Serbian" "sr")
688 ("Slovak" "sk" "TUTORIAL.sk" "Prajeme V,Ba(Bm pr,Bm(Bjemn,B}(B de,Br(B!" 688 ("Slovak" "sk" "TUTORIAL.sk" "Prajeme V,Ba(Bm pr,Bm(Bjemn,B}(B de,Br(B!"
689 "latin-2-postfix") 689 "latin-2-postfix")
726 `((charset ascii ,charset) 726 `((charset ascii ,charset)
727 (coding-system ,codesys) 727 (coding-system ,codesys)
728 (coding-priority ,codesys) 728 (coding-priority ,codesys)
729 (native-coding-system ,codesys) 729 (native-coding-system ,codesys)
730 ,@(if locale `((locale . ,locale))) 730 ,@(if locale `((locale . ,locale)))
731 ,@(if tutorial `((tutorial . ,tutorial))) 731 ,@(if tutorial `((tutorial . ,tutorial)
732 (tutorial-coding-system ,codesys)))
732 ,@(if sample-text `((sample-text . ,sample-text))) 733 ,@(if sample-text `((sample-text . ,sample-text)))
733 (input-method . ,(or input-method default-input)) 734 (input-method . ,(or input-method default-input))
734 (documentation . ,(format "\ 735 (documentation . ,(format "\
735 This language environment supports %s. " name))) 736 This language environment supports %s. " name)))
736 '("European")))) 737 '("European"))))