# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 954465111 0
# Node ID 2dbedede85077ee5d9d12333c42a3211aa4a3c64
# Parent  04faa83007148a24d664fd91cb6ccb6bf1d3b26d
("Polish"): New language environment.
(setup-polish-environment): New function.

diff -r 04faa8300714 -r 2dbedede8507 lisp/language/european.el
--- a/lisp/language/european.el	Fri Mar 31 01:11:13 2000 +0000
+++ b/lisp/language/european.el	Fri Mar 31 01:11:51 2000 +0000
@@ -347,4 +347,26 @@
 	     (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