Mercurial > emacs
changeset 28436:2dbedede8507
("Polish"): New language environment.
(setup-polish-environment): New function.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 31 Mar 2000 01:11:51 +0000 |
| parents | 04faa8300714 |
| children | 29b4f46816c9 |
| files | lisp/language/european.el |
| diffstat | 1 files changed, 22 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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