From: Kenichi Handa <handa@m17n.org>
Date: Fri, 31 Mar 2000 01:11:51 +0000 (+0000)
Subject: ("Polish"): New language environment.
X-Git-Tag: emacs-pretest-21.0.90~4390
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b9427ca6bbaab4c11e3e360ec1f3c8310de39be0;p=emacs.git

("Polish"): New language environment.
(setup-polish-environment): New function.
---

diff --git a/lisp/language/european.el b/lisp/language/european.el
index d8cd1acdd78..b4b61ee85b5 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -347,4 +347,26 @@ but default input method is set to \"german-postfix\"."))
 	     (sample-text . "Turkish (T,M|(Brk,Mg(Be)	Merhaba")
 	     (documentation . t)))
 
+;; Polish ISO 8859-2 environment.
+;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl>
+;; Keywords: multilingual, Polish
+
+(defun setup-polish-environment ()
+  "Setup multilingual environment (MULE) for Polish."
+  (interactive)
+  (set-language-environment "Polish"))
+
+(set-language-info-alist
+ "Polish" '((charset . (ascii latin-iso8859-2))
+	   (coding-system . (iso-8859-2))
+	   (coding-priority . (iso-8859-2))
+	   (input-method . "polish-slash")
+	   (nonascii-translation . latin-iso8859-2)
+	   (unibyte-syntax . "latin-2")
+	   (unibyte-display . iso-8859-2)
+	   (tutorial . "TUTORIAL.pl")
+	   (sample-text . ",B1!fFjJ3#qQsS6&?/<,(B")
+	   (documentation . t))
+ '("European"))
+
 ;;; european.el ends here