X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Feuropean.el;h=420ca2c26d30974b8c44463c37dc8c308f4c1cb8;hb=9e004122928715a7579fcbfaf2e85155ac78a432;hp=7feb4e4158d605e6f962c5a9953c2d14bfb64011;hpb=28a3fa29bc0bd9a124b6e3379e82d62e815c22a2;p=chise%2Fxemacs-chise.git

diff --git a/lisp/mule/european.el b/lisp/mule/european.el
index 7feb4e4..420ca2c 100644
--- a/lisp/mule/european.el
+++ b/lisp/mule/european.el
@@ -229,8 +229,16 @@ These languages are supported with the Latin-2 (ISO-8859-2) character set:
 " . describe-european-environment-map))
 	      ))
 
+;; Romanian support originally from romanian.el
+
+(defun setup-romanian-environment ()
+  "Setup multilingual environment (MULE) for Romanian."
+  (interactive)
+  (setup-8-bit-environment "Romanian" 'latin-iso8859-2 'iso-8859-2
+			   "romanian"))
+
 (set-language-info-alist
- "Romanian" '((setup-function . (setup-latin2-environment
+ "Romanian" '((setup-function . (setup-romanian-environment
 				 . setup-european-environment-map))
 	      (charset . (ascii latin-iso8859-2))
 	      (tutorial . "TUTORIAL.ro")
@@ -241,6 +249,33 @@ These languages are supported with the Latin-2 (ISO-8859-2) character set:
  Serbian, Croatian, Slovak, Slovene, and Swedish.
 " . describe-european-environment-map))
 	      ))
+
+;; Czech support originally from czech.el
+;; Author: Milan Zamazal <pdm@fi.muni.cz>
+;; Maintainer(for XEmacs): David Sauer <davids@penguin.cz>
+
+(defun setup-czech-environment ()
+  "Set up multilingual environment (MULE) for czech users."
+  (interactive)
+  (setup-8-bit-environment "Czech" 'latin-iso8859-2 'iso-8859-2
+			   "czech"))
+
+
+(set-language-info-alist
+ "Czech" 
+ '((setup-function . (setup-czech-environment
+		      . setup-european-environment-map))
+   (charset . (ascii latin-iso8859-2))
+   (coding-system . (iso-8859-2))
+   (tutorial . "TUTORIAL.cs")
+   (documentation . ("\
+These languages are supported with the Latin-2 (ISO-8859-2) character set:
+Albanian, Czech, English, German, Hungarian, Polish, Romanian,
+Serbian, Croatian, Slovak, Slovene, and Swedish.
+" . describe-european-environment-map))
+))
+
+
 
 ;; Latin-3 (ISO-8859-3)