Mercurial > emacs
comparison lisp/language/czech.el @ 21196:0ad514a44245
Initial revision
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 17 Mar 1998 05:49:29 +0000 |
parents | |
children | 889e8341a01d |
comparison
equal
deleted
inserted
replaced
21195:169fde4a67c1 | 21196:0ad514a44245 |
---|---|
1 ;;; czech.el -- support for Czech | |
2 | |
3 ;; Copyright (C) 1998 Free Software Foundation. | |
4 | |
5 ;; Author: Milan Zamazal <pdm@fi.muni.cz> | |
6 ;; Maintainer: Milan Zamazal <pdm@fi.muni.cz> | |
7 ;; Keywords: multilingual, Czech | |
8 | |
9 ;; Copying and warranty: GNU General Public License, version 2 | |
10 | |
11 ;;; Commentary: | |
12 | |
13 ;; Czech ISO 8859-2 environment. | |
14 | |
15 ;;; Code: | |
16 | |
17 (defun setup-czech-environment () | |
18 "Setup multilingual environment (MULE) for Czech." | |
19 (interactive) | |
20 (setup-8-bit-environment "Czech" 'latin-iso8859-2 'iso-8859-2) | |
21 (load "latin-2")) | |
22 | |
23 (set-language-info-alist | |
24 "Czech" '((setup-function . setup-czech-environment) | |
25 (charset . (ascii latin-iso8859-2)) | |
26 (coding-system . (iso-8859-2)) | |
27 (tutorial . "TUTORIAL.cz") | |
28 (sample-text . "P,Bx(Bejeme v,Ba(Bm hezk,Bi(B r,Ba(Bno!") | |
29 (documentation . t))) | |
30 | |
31 (provide 'czech) | |
32 | |
33 ;; czech.el ends here |