Initial revision

2 files changed, 66 insertions, 0 deletions

diff --git a/lisp/language/czech.el b/lisp/language/czech.el
new file mode 100644
index 00000000000..6e2478679f4
--- /dev/null
+++ b/lisp/language/czech.el
@@ -0,0 +1,33 @@
+;;; czech.el -- support for Czech
+
+;; Copyright (C) 1998 Free Software Foundation.
+
+;; Author:     Milan Zamazal <pdm@fi.muni.cz>
+;; Maintainer: Milan Zamazal <pdm@fi.muni.cz>
+;; Keywords: multilingual, Czech
+
+;; Copying and warranty: GNU General Public License, version 2
+
+;;; Commentary:
+
+;; Czech ISO 8859-2 environment.
+
+;;; Code:
+
+(defun setup-czech-environment ()
+  "Setup multilingual environment (MULE) for Czech."
+  (interactive)
+  (setup-8-bit-environment "Czech" 'latin-iso8859-2 'iso-8859-2)
+  (load "latin-2"))
+
+(set-language-info-alist
+ "Czech" '((setup-function . setup-czech-environment)
+           (charset . (ascii latin-iso8859-2))
+           (coding-system . (iso-8859-2))
+           (tutorial . "TUTORIAL.cz")
+           (sample-text . "P,Bx(Bejeme v,Ba(Bm hezk,Bi(B r,Ba(Bno!")
+           (documentation . t)))
+
+(provide 'czech)
+
+;; czech.el ends here
diff --git a/lisp/language/slovak.el b/lisp/language/slovak.el
new file mode 100644
index 00000000000..e33ade8b257
--- /dev/null
+++ b/lisp/language/slovak.el
@@ -0,0 +1,33 @@
+;;; slovak.el --- Support for Slovak
+
+;; Copyright (C) 1998 Free Software Foundation.
+
+;; Authors:    Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>,
+;;             Milan Zamazal <pdm@fi.muni.cz>
+;; Maintainer: Milan Zamazal <pdm@fi.muni.cz>
+;; Keywords: multilingual, Slovak
+
+;; Copying and warranty: GNU General Public License, version 2
+
+;;; Commentary:
+
+;; Slovak ISO 8859-2 environment.
+
+;;; Code:
+
+(defun setup-slovak-environment ()
+  "Setup multilingual environment (MULE) for Slovak."
+  (interactive)
+  (setup-8-bit-environment "Slovak" 'latin-iso8859-2 'iso-8859-2)
+  (load "latin-2"))
+
+(set-language-info-alist
+ "Slovak" '((setup-function . setup-slovak-environment)
+            (charset . (ascii latin-iso8859-2))
+            (coding-system . (iso-latin-2))
+            (sample-text . "Prajeme V,Ba(Bm pr,Bm(Bjemn,B}(B de,Br(B!")
+            (documentation . t)))
+
+(provide 'slovak)
+
+;; slovak.el ends here