(Frename_file): Undo last change: no need to ifdef away

[bpt/emacs.git] / lisp / language / czech.el

diff --git a/lisp/language/czech.el b/lisp/language/czech.el
index 2e19434..3d7467c 100644 (file)
--- a/lisp/language/czech.el
+++ b/lisp/language/czech.el
@@ -1,8 +1,9 @@
-;;; czech.el -- support for Czech
+;;; czech.el --- support for Czech -*- coding: iso-2022-7bit; no-byte-compile: t -*-
 
-;; Copyright (C) 1998 Free Software Foundation.
+;; Copyright (C) 1998, 2001 Free Software Foundation.
 
-;; Maintainer: Milan Zamazal <pdm@fi.muni.cz>
+;; Author: Milan Zamazal <pdm@zamazal.org>
+;; Maintainer: Pavel Jan\e,Am\e(Bk <Pavel@Janik.cz>
 ;; Keywords: multilingual, Czech
 
 ;; This file is part of GNU Emacs.
@@ -28,21 +29,23 @@
 
 ;;; Code:
 
-(defun setup-czech-environment ()
-  "Setup multilingual environment (MULE) for Czech."
-  (interactive)
-  (setup-8-bit-environment "Czech" 'latin-iso8859-2 "czech")
-  (load "latin-2"))
-
 (set-language-info-alist
- "Czech" '((setup-function . setup-czech-environment)
-          (charset . (ascii latin-iso8859-2))
+ "Czech" '((charset . (ascii latin-iso8859-2))
           (coding-system . (iso-8859-2))
           (coding-priority . (iso-8859-2))
+          (input-method . "czech")
+          (nonascii-translation . latin-iso8859-2)
+          (unibyte-syntax . "latin-2")
+          (unibyte-display . iso-8859-2)
           (tutorial . "TUTORIAL.cs")
           (sample-text . "P\e,Bx\e(Bejeme v\e,Ba\e(Bm hezk\e,B}\e(B den!")
-          (documentation . t)))
+          (documentation . "\
+This language environment is almost the same as Latin-2,
+but sets the default input method to \"czech\",
+and selects the Czech tutorial."))
+ '("European"))
 
 (provide 'czech)
 
-;; czech.el ends here
+;;; arch-tag: 45ac0d83-ca13-4b5e-9e82-821e44080c24
+;;; czech.el ends here