code.delx.au - gnu-emacs/blob - lisp/language/czech.el

   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 "czech")
  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\e,Bx\e(Bejeme v\e,Ba\e(Bm hezk\e,Bi\e(B r\e,Ba\e(Bno!")
  29            (documentation . t)))
  30
  31 (provide 'czech)
  32
  33 ;; czech.el ends here