changeset 21894:a770caf1f7c5

(setup-czech-environment): Call latin-2's setup function.
author Richard M. Stallman <rms@gnu.org>
date Fri, 01 May 1998 19:51:27 +0000
parents d3cd4d2e83ea
children b8ebd3d021a4
files lisp/language/czech.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/czech.el	Fri May 01 08:48:27 1998 +0000
+++ b/lisp/language/czech.el	Fri May 01 19:51:27 1998 +0000
@@ -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)