From b9427ca6bbaab4c11e3e360ec1f3c8310de39be0 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 31 Mar 2000 01:11:51 +0000 Subject: [PATCH] ("Polish"): New language environment. (setup-polish-environment): New function. --- lisp/language/european.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) 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 +;; 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 -- 2.39.5