From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 1 May 1998 19:51:27 +0000 (+0000)
Subject: (setup-czech-environment): Call latin-2's setup function.
X-Git-Tag: emacs-20.3~1183
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fba04b4cd2f60afda21f4ca418b9cfc8c1c3843d;p=emacs.git

(setup-czech-environment): Call latin-2's setup function.
---

diff --git a/lisp/language/czech.el b/lisp/language/czech.el
index 02708ecf59d..69de792330f 100644
--- a/lisp/language/czech.el
+++ b/lisp/language/czech.el
@@ -31,8 +31,8 @@
 (defun setup-czech-environment ()
   "Setup multilingual environment (MULE) for Czech."
   (interactive)
-  (setup-8-bit-environment "Czech" 'latin-iso8859-2 "czech")
-  (load "latin-2"))
+  (funcall (get-language-info "Latin-2" 'setup-function))
+  (setq default-input-method "czech"))
 
 (set-language-info-alist
  "Czech" '((setup-function . setup-czech-environment)