21196
|
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
|