("Polish"): New language environment.

(setup-polish-environment): New function.

diff --git a/lisp/language/european.el b/lisp/language/european.el
index d8cd1acdd7838398eb66ad0926ca2d773ae0545e..b4b61ee85b5960d89311e0c849ab4a8b19c0421e 100644 (file)
--- 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\e,M|\e(Brk\e,Mg\e(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 . "\e,B1!fFjJ3#qQsS6&?/<,\e(B")
+          (documentation . t))
+ '("European"))
+
 ;;; european.el ends here