Initial revision

4 files changed, 1088 insertions, 0 deletions

diff --git a/leim/quail/czech.el b/leim/quail/czech.el
new file mode 100644
index 00000000000..c497292fbdc
--- /dev/null
+++ b/leim/quail/czech.el
@@ -0,0 +1,547 @@
+;;; quail/czech.el -- Quail package for inputting Czech
+
+;; Copyright (C) 1998 Free Software Foundation.
+
+;; Author:     Milan Zamazal <pdm@fi.muni.cz>
+;; Maintainer: Milan Zamazal <pdm@fi.muni.cz>
+;; Keywords: multilingual, input method, Czech
+
+;; Copying and warranty: GNU General Public License, version 2
+
+;;; Commentary:
+
+;; This file defines the following Czech keyboards:
+;; - "standard" Czech keyboard in the Windoze NT 105 keys version (both
+;;   "QWERTZ" and "QWERTY" versions)
+;; - three non-standard Czech keyboards for programmers
+
+;; Current Quail version has some limitations, which create annoying problems
+;; when using Czech keyboards.  You may want to install the file
+;; `hack-quail.el' from the package
+;; ftp://ftp.fi.muni.cz/pub/localization/emacs/emacs-20/emacs-cs-utils*
+;; which tries to remove some of these limitations.
+
+;;; Code:
+
+(require 'quail)
+
+
+(quail-define-package
+ "czech" "Czech" "CZ" nil
+ "\"Standard\" Czech keyboard in the Windoze NT 105 keys version."
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?+)
+ ("2" ?,Bl(B)
+ ("3" ?,B9(B)
+ ("4" ?,Bh(B)
+ ("5" ?,Bx(B)
+ ("6" ?,B>(B)
+ ("7" ?,B}(B)
+ ("8" ?,Ba(B)
+ ("9" ?,Bm(B)
+ ("0" ?,Bi(B)
+ ("!" ?1)
+ ("@" ?2)
+ ("#" ?3)
+ ("$" ?4)
+ ("%" ?5)
+ ("^" ?6)
+ ("&" ?7)
+ ("*" ?8)
+ ("(" ?9)
+ (")" ?0)
+ ("-" ?=)
+ ("_" ?%)
+ ("[" ?,Bz(B)
+ ("{" ?/)
+ ("]" ?\))
+ ("}" ?\()
+ ("|" ?`)
+ (";" ?,By(B)
+ (":" ?\")
+ ("'" ?,B'(B)
+ ("\"" ?!)
+ ("<" ??)
+ (">" ?:)
+ ("/" ?-)
+ ("?" ?_)
+ ("`" ?\;)
+ ("y" ?z)
+ ("z" ?y)
+ ("Y" ?Z)
+ ("Z" ?Y)
+ ("\\a" ?,Bd(B)
+ ("\\o" ?,Bv(B)
+ ("\\s" ?,B_(B)
+ ("\\u" ?,B|(B)
+ ("\\A" ?,BD(B)
+ ("\\O" ?,BV(B)
+ ("\\S" ?,B_(B)
+ ("\\U" ?,B\(B)
+ ("~u" ?,By(B)
+ ("~U" ?,BY(B)
+ ("=a" ?,Ba(B)
+ ("+c" ?,Bh(B)
+ ("+d" ?,Bo(B)
+ ("=e" ?,Bi(B)
+ ("+e" ?,Bl(B)
+ ("=i" ?,Bm(B)
+ ("+n" ?,Br(B)
+ ("=o" ?,Bs(B)
+ ("+r" ?,Bx(B)
+ ("+s" ?,B9(B)
+ ("+t" ?,B;(B)
+ ("=u" ?,Bz(B)
+ ("=z" ?,B}(B)
+ ("+y" ?,B>(B)
+ ("=A" ?,BA(B)
+ ("+C" ?,BH(B)
+ ("+D" ?,BO(B)
+ ("=E" ?,BI(B)
+ ("+E" ?,BL(B)
+ ("=I" ?,BM(B)
+ ("+N" ?,BR(B)
+ ("=O" ?,BS(B)
+ ("+R" ?,BX(B)
+ ("+S" ?,B)(B)
+ ("+T" ?,B+(B)
+ ("=U" ?,BZ(B)
+ ("=Z" ?,B](B)
+ ("+Y" ?,B.(B)
+ ("=1" ?!)
+ ("=2" ?@)
+ ("=3" ?#)
+ ("=4" ?$)
+ ("=5" ?%)
+ ("=6" ?^)
+ ("=7" ?&)
+ ("=8" ?*)
+ ("=9" ?\()
+ ("=0" ?\))
+ ("+1" ?!)
+ ("+2" ?@)
+ ("+3" ?#)
+ ("+4" ?$)
+ ("+5" ?%)
+ ("+6" ?^)
+ ("+7" ?&)
+ ("+8" ?*)
+ ("+9" ?\()
+ ("+0" ?\))
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
+
+(quail-define-package
+ "czech-qwerty" "Czech" "CZ" nil
+ "\"Standard\" Czech keyboard in the Windoze NT 105 keys version, QWERTY layout."
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?+)
+ ("2" ?,Bl(B)
+ ("3" ?,B9(B)
+ ("4" ?,Bh(B)
+ ("5" ?,Bx(B)
+ ("6" ?,B>(B)
+ ("7" ?,B}(B)
+ ("8" ?,Ba(B)
+ ("9" ?,Bm(B)
+ ("0" ?,Bi(B)
+ ("!" ?1)
+ ("@" ?2)
+ ("#" ?3)
+ ("$" ?4)
+ ("%" ?5)
+ ("^" ?6)
+ ("&" ?7)
+ ("*" ?8)
+ ("(" ?9)
+ (")" ?0)
+ ("-" ?=)
+ ("_" ?%)
+ ("[" ?,Bz(B)
+ ("{" ?/)
+ ("]" ?\))
+ ("}" ?\()
+ ("|" ?`)
+ (";" ?,By(B)
+ (":" ?\")
+ ("'" ?,B'(B)
+ ("\"" ?!)
+ ("<" ??)
+ (">" ?:)
+ ("/" ?-)
+ ("?" ?_)
+ ("`" ?\;)
+ ("\\a" ?,Bd(B)
+ ("\\o" ?,Bv(B)
+ ("\\s" ?,B_(B)
+ ("\\u" ?,B|(B)
+ ("\\A" ?,BD(B)
+ ("\\O" ?,BV(B)
+ ("\\S" ?,B_(B)
+ ("\\U" ?,B\(B)
+ ("~u" ?,By(B)
+ ("~U" ?,BY(B)
+ ("=a" ?,Ba(B)
+ ("+c" ?,Bh(B)
+ ("+d" ?,Bo(B)
+ ("=e" ?,Bi(B)
+ ("+e" ?,Bl(B)
+ ("=i" ?,Bm(B)
+ ("+n" ?,Br(B)
+ ("=o" ?,Bs(B)
+ ("+r" ?,Bx(B)
+ ("+s" ?,B9(B)
+ ("+t" ?,B;(B)
+ ("=u" ?,Bz(B)
+ ("=y" ?,B}(B)
+ ("+z" ?,B>(B)
+ ("=A" ?,BA(B)
+ ("+C" ?,BH(B)
+ ("+D" ?,BO(B)
+ ("=E" ?,BI(B)
+ ("+E" ?,BL(B)
+ ("=I" ?,BM(B)
+ ("+N" ?,BR(B)
+ ("=O" ?,BS(B)
+ ("+R" ?,BX(B)
+ ("+S" ?,B)(B)
+ ("+T" ?,B+(B)
+ ("=Y" ?,B](B)
+ ("+Z" ?,B.(B)
+ ("=U" ?,BZ(B)
+ ("=1" ?!)
+ ("=2" ?@)
+ ("=3" ?#)
+ ("=4" ?$)
+ ("=5" ?%)
+ ("=6" ?^)
+ ("=7" ?&)
+ ("=8" ?*)
+ ("=9" ?\()
+ ("=0" ?\))
+ ("+1" ?!)
+ ("+2" ?@)
+ ("+3" ?#)
+ ("+4" ?$)
+ ("+5" ?%)
+ ("+6" ?^)
+ ("+7" ?&)
+ ("+8" ?*)
+ ("+9" ?\()
+ ("+0" ?\))
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
+
+(quail-define-package
+ "czech-prog-1" "Czech" "CZ" nil
+ "Czech (non-standard) keyboard for programmers #1.
+
+All digits except of `1' are replaced by Czech characters as on the standard
+Czech keyboard.
+`1' is replaced by `+'.
+`+' is a dead key.  Multiple presses of the dead key generate various accents.
+All other keys are the same as on standard US keyboard."
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?+)
+ ("2" ?,Bl(B)
+ ("3" ?,B9(B)
+ ("4" ?,Bh(B)
+ ("5" ?,Bx(B)
+ ("6" ?,B>(B)
+ ("7" ?,B}(B)
+ ("8" ?,Ba(B)
+ ("9" ?,Bm(B)
+ ("0" ?,Bi(B)
+ ("+1" ?1)
+ ("+2" ?2)
+ ("+3" ?3)
+ ("+4" ?4)
+ ("+5" ?5)
+ ("+6" ?6)
+ ("+7" ?7)
+ ("+8" ?8)
+ ("+9" ?9)
+ ("+0" ?0)
+ ("+a" ?,Ba(B)
+ ("++a" ?,Bd(B)
+ ("+c" ?,Bh(B)
+ ("+d" ?,Bo(B)
+ ("+e" ?,Bi(B)
+ ("++e" ?,Bl(B)
+ ("+i" ?,Bm(B)
+ ("+l" ?,Be(B)
+ ("++l" ?,B5(B)
+ ("+n" ?,Br(B)
+ ("+o" ?,Bs(B)
+ ("++o" ?,Bv(B)
+ ("+++o" ?,Bt(B)
+ ("+r" ?,Bx(B)
+ ("++r" ?,B`(B)
+ ("+s" ?,B9(B)
+ ("++s" ?,B_(B)
+ ("+t" ?,B;(B)
+ ("+u" ?,Bz(B)
+ ("++u" ?,By(B)
+ ("+++u" ?,B|(B)
+ ("+y" ?,B}(B)
+ ("+z" ?,B>(B)
+ ("+A" ?,BA(B)
+ ("++A" ?,BD(B)
+ ("+C" ?,BH(B)
+ ("+D" ?,BO(B)
+ ("+E" ?,BI(B)
+ ("++E" ?,BL(B)
+ ("+I" ?,BM(B)
+ ("+L" ?,BE(B)
+ ("++L" ?,B%(B)
+ ("+N" ?,BR(B)
+ ("+O" ?,BS(B)
+ ("++O" ?,BV(B)
+ ("+++O" ?,BT(B)
+ ("+R" ?,BX(B)
+ ("++R" ?,B@(B)
+ ("+S" ?,B)(B)
+ ("++S" ?,B_(B)
+ ("+T" ?,B+(B)
+ ("+U" ?,BZ(B)
+ ("++U" ?,BY(B)
+ ("+++U" ?,B\(B)
+ ("+Y" ?,B](B)
+ ("+Z" ?,B.(B)
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
+
+(quail-define-package
+ "czech-prog-2" "Czech" "CZ" nil
+ "Czech (non-standard) keyboard for programmers #2.
+
+All digits except of `1' are replaced by Czech characters as on the standard
+Czech keyboard.
+`1' is replaced by `,By(B'.
+`+' is a dead key.  Multiple presses of the dead key generate various accents.
+All other keys are the same as on standard US keyboard."
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?,By(B)
+ ("2" ?,Bl(B)
+ ("3" ?,B9(B)
+ ("4" ?,Bh(B)
+ ("5" ?,Bx(B)
+ ("6" ?,B>(B)
+ ("7" ?,B}(B)
+ ("8" ?,Ba(B)
+ ("9" ?,Bm(B)
+ ("0" ?,Bi(B)
+ ("+1" ?1)
+ ("+2" ?2)
+ ("+3" ?3)
+ ("+4" ?4)
+ ("+5" ?5)
+ ("+6" ?6)
+ ("+7" ?7)
+ ("+8" ?8)
+ ("+9" ?9)
+ ("+0" ?0)
+ ("+a" ?,Ba(B)
+ ("++a" ?,Bd(B)
+ ("+c" ?,Bh(B)
+ ("+d" ?,Bo(B)
+ ("+e" ?,Bi(B)
+ ("++e" ?,Bl(B)
+ ("+i" ?,Bm(B)
+ ("+l" ?,Be(B)
+ ("++l" ?,B5(B)
+ ("+n" ?,Br(B)
+ ("+o" ?,Bs(B)
+ ("++o" ?,Bv(B)
+ ("+++o" ?,Bt(B)
+ ("+r" ?,Bx(B)
+ ("++r" ?,B`(B)
+ ("+s" ?,B9(B)
+ ("++s" ?,B_(B)
+ ("+t" ?,B;(B)
+ ("+u" ?,Bz(B)
+ ("++u" ?,By(B)
+ ("+++u" ?,B|(B)
+ ("+y" ?,B}(B)
+ ("+z" ?,B>(B)
+ ("+A" ?,BA(B)
+ ("++A" ?,BD(B)
+ ("+C" ?,BH(B)
+ ("+D" ?,BO(B)
+ ("+E" ?,BI(B)
+ ("++E" ?,BL(B)
+ ("+I" ?,BM(B)
+ ("+L" ?,BE(B)
+ ("++L" ?,B%(B)
+ ("+N" ?,BR(B)
+ ("+O" ?,BS(B)
+ ("++O" ?,BV(B)
+ ("+++O" ?,BT(B)
+ ("+R" ?,BX(B)
+ ("++R" ?,B@(B)
+ ("+S" ?,B)(B)
+ ("++S" ?,B_(B)
+ ("+T" ?,B+(B)
+ ("+U" ?,BZ(B)
+ ("++U" ?,BY(B)
+ ("+++U" ?,B\(B)
+ ("+Y" ?,B](B)
+ ("+Z" ?,B.(B)
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
+
+(quail-define-package
+ "czech-prog-3" "Czech" "CZ" nil
+ "Czech (non-standard) keyboard for programmers compatible with the default
+keyboard from the obsolete `emacs-czech' package.
+
+All digits except of `1' are replaced by Czech characters as on the standard
+Czech keyboard.
+`[' and `]' are replaced with `,Bz(B' and `,By(B', respectively.
+There are two dead keys on `=' and `+'.  Characters with diaresis are
+accessible through `+='.
+All other keys are the same as on standard US keyboard."
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("2" ?,Bl(B)
+ ("3" ?,B9(B)
+ ("4" ?,Bh(B)
+ ("5" ?,Bx(B)
+ ("6" ?,B>(B)
+ ("7" ?,B}(B)
+ ("8" ?,Ba(B)
+ ("9" ?,Bm(B)
+ ("0" ?,Bi(B)
+ ("[" ?,Bz(B)
+ ("]" ?,By(B)
+ ("==" ?=)
+ ("++" ?+)
+ ("=+" ?+)
+ ("=[" ?\[)
+ ("=]" ?\])
+ ("+[" ?\[)
+ ("+]" ?\])
+ ("=1" ?1)
+ ("=2" ?2)
+ ("=3" ?3)
+ ("=4" ?4)
+ ("=5" ?5)
+ ("=6" ?6)
+ ("=7" ?7)
+ ("=8" ?8)
+ ("=9" ?9)
+ ("=0" ?0)
+ ("+1" ?1)
+ ("+2" ?2)
+ ("+3" ?3)
+ ("+4" ?4)
+ ("+5" ?5)
+ ("+6" ?6)
+ ("+7" ?7)
+ ("+8" ?8)
+ ("+9" ?9)
+ ("+0" ?0)
+ ("=A" ?,BA(B)
+ ("+A" ?,BD(B)
+ ("+=A" ?,BD(B)
+ ("+C" ?,BH(B)
+ ("+D" ?,BO(B)
+ ("=E" ?,BI(B)
+ ("+E" ?,BL(B)
+ ("=I" ?,BM(B)
+ ("=L" ?,B%(B)
+ ("+L" ?,BE(B)
+ ("+N" ?,BR(B)
+ ("=O" ?,BS(B)
+ ("+O" ?,BT(B)
+ ("+=O" ?,BV(B)
+ ("=R" ?,B@(B)
+ ("+R" ?,BX(B)
+ ("+S" ?,B)(B)
+ ("=S" ?,B_(B)
+ ("+T" ?,B+(B)
+ ("=U" ?,BZ(B)
+ ("+U" ?,BY(B)
+ ("+=U" ?,B\(B)
+ ("=Y" ?,B](B)
+ ("+Z" ?,B.(B)
+ ("=a" ?,Ba(B)
+ ("+a" ?,Bd(B)
+ ("+=a" ?,Bd(B)
+ ("+c" ?,Bh(B)
+ ("+d" ?,Bo(B)
+ ("=e" ?,Bi(B)
+ ("+e" ?,Bl(B)
+ ("=i" ?,Bm(B)
+ ("=l" ?,B5(B)
+ ("+l" ?,Be(B)
+ ("+n" ?,Br(B)
+ ("=o" ?,Bs(B)
+ ("+o" ?,Bt(B)
+ ("+=o" ?,Bv(B)
+ ("=r" ?,B`(B)
+ ("+r" ?,Bx(B)
+ ("+s" ?,B9(B)
+ ("=s" ?,B_(B)
+ ("+t" ?,B;(B)
+ ("=u" ?,Bz(B)
+ ("+u" ?,By(B)
+ ("+=u" ?,B|(B)
+ ("=y" ?,B}(B)
+ ("+z" ?,B>(B)
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
diff --git a/leim/quail/slovak.el b/leim/quail/slovak.el
new file mode 100644
index 00000000000..2f56874d94f
--- /dev/null
+++ b/leim/quail/slovak.el
@@ -0,0 +1,475 @@
+;;; quail/slovak.el -- Quail package for inputting 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, input method, Slovak
+
+;; Copying and warranty: GNU General Public License, version 2
+
+;;; Commentary:
+
+;; This setups some Slovak keyboards:
+;; - standard Slovak keyboard
+;; - three Slovak keyboards for programmers
+
+;; Current Quail version has some limitations, which create annoying problems
+;; when using Czech keyboards.  You may want to install the file
+;; `hack-quail.el' from the package
+;; ftp://ftp.fi.muni.cz/pub/localization/emacs/emacs-20/emacs-cs-utils*
+;; which tries to remove some of these limitations.
+
+;;; Code:
+
+(require 'quail)
+
+
+(quail-define-package
+ "slovak" "Slovak" "SK" nil
+ "Standard Slovak keyboard."
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?+)
+ ("2" ?,B5(B)
+ ("3" ?,B9(B)
+ ("4" ?,Bh(B)
+ ("5" ?,B;(B)
+ ("6" ?,B>(B)
+ ("7" ?,B}(B)
+ ("8" ?,Ba(B)
+ ("9" ?,Bm(B)
+ ("0" ?,Bi(B)
+ ("!" ?1)
+ ("@" ?2)
+ ("#" ?3)
+ ("$" ?4)
+ ("%" ?5)
+ ("^" ?6)
+ ("&" ?7)
+ ("*" ?8)
+ ("(" ?9)
+ (")" ?0)
+ ("q" ?`)
+ ("Q" ?`)
+ ("-" ?=)
+ ("_" ?%)
+ ("=" ?')
+ ("[" ?,Bz(B)
+ ("{" ?/)
+ ("]" ?,Bd(B)
+ ("}" ?\()
+ ("\\" ?,Br(B)
+ ("|" ?\))
+ (";" ?,Bt(B)
+ (":" ?\")
+ ("'" ?,B'(B)
+ ("\"" ?!)
+ ("<" ??)
+ (">" ?:)
+ ("/" ?-)
+ ("?" ?_)
+ ("`" ?\;)
+ ("~" ?^)
+ ("y" ?z)
+ ("z" ?y)
+ ("Y" ?Z)
+ ("Z" ?Y)
+ ("=a" ?,Ba(B)
+ ("+a" ?,Bd(B)
+ ("+=a" ?,Bd(B)
+ ("+c" ?,Bh(B)
+ ("+d" ?,Bo(B)
+ ("=e" ?,Bi(B)
+ ("+e" ?,Bl(B)
+ ("=i" ?,Bm(B)
+ ("=l" ?,Be(B)
+ ("+l" ?,B5(B)
+ ("+n" ?,Br(B)
+ ("=o" ?,Bs(B)
+ ("+o" ?,Bt(B)
+ ("~o" ?,Bt(B)
+ ("+=o" ?,Bv(B)
+ ("=r" ?,B`(B)
+ ("+r" ?,Bx(B)
+ ("=s" ?,B_(B)
+ ("+s" ?,B9(B)
+ ("+t" ?,B;(B)
+ ("=u" ?,Bz(B)
+ ("+u" ?,By(B)
+ ("+=u" ?,B|(B)
+ ("=z" ?,B}(B)
+ ("+y" ?,B>(B)
+ ("=A" ?,BA(B)
+ ("+A" ?,BD(B)
+ ("+=A" ?,BD(B)
+ ("+C" ?,BH(B)
+ ("+D" ?,BO(B)
+ ("=E" ?,BI(B)
+ ("+E" ?,BL(B)
+ ("=I" ?,BM(B)
+ ("=L" ?,BE(B)
+ ("+L" ?,B%(B)
+ ("+N" ?,BR(B)
+ ("=O" ?,BS(B)
+ ("+O" ?,BT(B)
+ ("~O" ?,BT(B)
+ ("+=O" ?,BV(B)
+ ("=R" ?,B@(B)
+ ("+R" ?,BX(B)
+ ("=S" ?,B_(B)
+ ("+S" ?,B)(B)
+ ("+T" ?,B+(B)
+ ("=U" ?,BZ(B)
+ ("+U" ?,BY(B)
+ ("+=U" ?,B\(B)
+ ("=Z" ?,B](B)
+ ("+Y" ?,B.(B)
+ ("=q" ?q)
+ ("+q" ?q)
+ ("=Q" ?Q)
+ ("+Q" ?Q)
+ ("=2" ?@)
+ ("=3" ?#)
+ ("=4" ?$)
+ ("=5" ?%)
+ ("=6" ?^)
+ ("=7" ?&)
+ ("=8" ?*)
+ ("=9" ?\()
+ ("=0" ?\))
+ ("+1" ?!)
+ ("+2" ?@)
+ ("+3" ?#)
+ ("+4" ?$)
+ ("+5" ?%)
+ ("+6" ?^)
+ ("+7" ?&)
+ ("+8" ?*)
+ ("+9" ?\()
+ ("+0" ?\))
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
+
+
+(quail-define-package
+ "slovak-prog-1" "Slovak" "SK" nil
+ "Slovak (non-standard) keyboard for programmers #1.
+
+All digits except of `1' are replaced by Slovak characters as on the standard
+Slovak keyboard.
+Dead keys are on `[', `[[', and `[[['.
+All other keys are the same as on standard US keyboard."
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("[[[[" ?\[)
+ ("2" ?,B5(B)
+ ("3" ?,B9(B)
+ ("4" ?,Bh(B)
+ ("5" ?,B;(B)
+ ("6" ?,B>(B)
+ ("7" ?,B}(B)
+ ("8" ?,Ba(B)
+ ("9" ?,Bm(B)
+ ("0" ?,Bi(B)
+ ("[a" ?,Ba(B)
+ ("[[a" ?,Bd(B)
+ ("[[[a" ?,Bd(B)
+ ("[c" ?,Bh(B)
+ ("[[c" ?,Bh(B)
+ ("[d" ?,Bo(B)
+ ("[[d" ?,Bo(B)
+ ("[e" ?,Bi(B)
+ ("[[e" ?,Bl(B)
+ ("[i" ?,Bm(B)
+ ("[l" ?,Be(B)
+ ("[[l" ?,B5(B)
+ ("[n" ?,Br(B)
+ ("[[n" ?,Br(B)
+ ("[o" ?,Bs(B)
+ ("[[o" ?,Bt(B)
+ ("[[[o" ?,Bv(B)
+ ("[r" ?,B`(B)
+ ("[[r" ?,Bx(B)
+ ("[s" ?,B9(B)
+ ("[[s" ?,B9(B)
+ ("[[[s" ?,B_(B)
+ ("[t" ?,B;(B)
+ ("[[t" ?,B;(B)
+ ("[u" ?,Bz(B)
+ ("[[u" ?,By(B)
+ ("[[[u" ?,B|(B)
+ ("[y" ?,B}(B)
+ ("[z" ?,B>(B)
+ ("[[z" ?,B>(B)
+ ("[A" ?,BA(B)
+ ("[[A" ?,BD(B)
+ ("[[[A" ?,BD(B)
+ ("[C" ?,BH(B)
+ ("[[C" ?,BH(B)
+ ("[D" ?,BO(B)
+ ("[[D" ?,BO(B)
+ ("[E" ?,BI(B)
+ ("[[E" ?,BL(B)
+ ("[I" ?,BM(B)
+ ("[L" ?,BE(B)
+ ("[[L" ?,B%(B)
+ ("[N" ?,BR(B)
+ ("[[N" ?,BR(B)
+ ("[O" ?,BS(B)
+ ("[[O" ?,BT(B)
+ ("[[[O" ?,BV(B)
+ ("[R" ?,B@(B)
+ ("[[R" ?,BX(B)
+ ("[S" ?,B)(B)
+ ("[[S" ?,B)(B)
+ ("[[[S" ?,B_(B)
+ ("[T" ?,B+(B)
+ ("[[T" ?,B+(B)
+ ("[U" ?,BZ(B)
+ ("[[U" ?,BY(B)
+ ("[[[U" ?,B\(B)
+ ("[Y" ?,B](B)
+ ("[Z" ?,B.(B)
+ ("[[Z" ?,B.(B)
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
+
+
+(quail-define-package
+ "slovak-prog-2" "Slovak" "SK" nil
+ "Slovak (non-standard) keyboard for programmers #2.
+
+All digits except of `1' are replaced by Slovak characters as on the standard
+Slovak keyboard.
+Dead keys are on `=' and `+'.
+All other keys are the same as on standard US keyboard."
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("2" ?,B5(B)
+ ("3" ?,B9(B)
+ ("4" ?,Bh(B)
+ ("5" ?,B;(B)
+ ("6" ?,B>(B)
+ ("7" ?,B}(B)
+ ("8" ?,Ba(B)
+ ("9" ?,Bm(B)
+ ("0" ?,Bi(B)
+ ("==" ?=)
+ ("++" ?+)
+ ("=+" ?+)
+ ("=2" ?2)
+ ("=3" ?3)
+ ("=4" ?4)
+ ("=5" ?5)
+ ("=6" ?6)
+ ("=7" ?7)
+ ("=8" ?8)
+ ("=9" ?9)
+ ("=0" ?0)
+ ("+2" ?2)
+ ("+3" ?3)
+ ("+4" ?4)
+ ("+5" ?5)
+ ("+6" ?6)
+ ("+7" ?7)
+ ("+8" ?8)
+ ("+9" ?9)
+ ("+0" ?0)
+ ("=a" ?,Ba(B)
+ ("+a" ?,Bd(B)
+ ("+=a" ?,Bd(B)
+ ("+c" ?,Bh(B)
+ ("+d" ?,Bo(B)
+ ("=e" ?,Bi(B)
+ ("+e" ?,Bl(B)
+ ("=i" ?,Bm(B)
+ ("=l" ?,Be(B)
+ ("+l" ?,B5(B)
+ ("+n" ?,Br(B)
+ ("=o" ?,Bs(B)
+ ("+o" ?,Bt(B)
+ ("+=o" ?,Bv(B)
+ ("=r" ?,B`(B)
+ ("+r" ?,Bx(B)
+ ("=s" ?,B_(B)
+ ("+s" ?,B9(B)
+ ("+t" ?,B;(B)
+ ("=u" ?,Bz(B)
+ ("+u" ?,By(B)
+ ("+=u" ?,B|(B)
+ ("=y" ?,B}(B)
+ ("+z" ?,B>(B)
+ ("=A" ?,BA(B)
+ ("+A" ?,BD(B)
+ ("+=A" ?,BD(B)
+ ("+C" ?,BH(B)
+ ("+D" ?,BO(B)
+ ("=E" ?,BI(B)
+ ("+E" ?,BL(B)
+ ("=I" ?,BM(B)
+ ("=L" ?,BE(B)
+ ("+L" ?,B%(B)
+ ("+N" ?,BR(B)
+ ("=O" ?,BS(B)
+ ("+O" ?,BT(B)
+ ("+=O" ?,BV(B)
+ ("=R" ?,B@(B)
+ ("+R" ?,BX(B)
+ ("=S" ?,B_(B)
+ ("+S" ?,B)(B)
+ ("+T" ?,B+(B)
+ ("=U" ?,BZ(B)
+ ("+U" ?,BY(B)
+ ("+=U" ?,B\(B)
+ ("=Y" ?,B](B)
+ ("+Z" ?,B.(B)
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
+
+
+(quail-define-package
+ "slovak-prog-3" "Slovak" "SK" nil
+ "Slovak (non-standard) keyboard for programmers #3.
+
+Dead keys are on `[', `[[', `[[[', and `]'.
+All other keys are the same as on standard US keyboard."
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("[[[[" ?\[)
+ ("[]" ?\])
+ ("][" ?\[)
+ ("]]" ?\])
+ ("[a" ?,Ba(B)
+ ("[[a" ?,Bd(B)
+ ("[[[a" ?,Bd(B)
+ ("]a" ?,Bd(B)
+ ("][a" ?,Bd(B)
+ ("[c" ?,Bh(B)
+ ("[[c" ?,Bh(B)
+ ("]c" ?,Bh(B)
+ ("[d" ?,Bo(B)
+ ("[[d" ?,Bo(B)
+ ("]d" ?,Bo(B)
+ ("[e" ?,Bi(B)
+ ("[[e" ?,Bl(B)
+ ("]e" ?,Bl(B)
+ ("[i" ?,Bm(B)
+ ("[l" ?,Be(B)
+ ("[[l" ?,B5(B)
+ ("]l" ?,B5(B)
+ ("[n" ?,Br(B)
+ ("[[n" ?,Br(B)
+ ("]n" ?,Br(B)
+ ("[[o" ?,Bt(B)
+ ("[[[o" ?,Bv(B)
+ ("[o" ?,Bs(B)
+ ("]o" ?,Bt(B)
+ ("][o" ?,Bv(B)
+ ("[r" ?,B`(B)
+ ("[[r" ?,Bx(B)
+ ("]r" ?,Bx(B)
+ ("[s" ?,B9(B)
+ ("[[s" ?,B9(B)
+ ("[[[s" ?,B_(B)
+ ("]s" ?,B9(B)
+ ("[t" ?,B;(B)
+ ("[[t" ?,B;(B)
+ ("]t" ?,B;(B)
+ ("[u" ?,Bz(B)
+ ("[[u" ?,By(B)
+ ("[[[u" ?,B|(B)
+ ("]u" ?,By(B)
+ ("][u" ?,B|(B)
+ ("[y" ?,B}(B)
+ ("[z" ?,B>(B)
+ ("[[z" ?,B>(B)
+ ("]z" ?,B>(B)
+ ("[A" ?,BA(B)
+ ("[[A" ?,BD(B)
+ ("[[[A" ?,BD(B)
+ ("]A" ?,BD(B)
+ ("][A" ?,BD(B)
+ ("[C" ?,BH(B)
+ ("[[C" ?,BH(B)
+ ("]C" ?,BH(B)
+ ("[D" ?,BO(B)
+ ("[[D" ?,BO(B)
+ ("]D" ?,BO(B)
+ ("[E" ?,BI(B)
+ ("[[E" ?,BL(B)
+ ("]E" ?,BL(B)
+ ("[I" ?,BM(B)
+ ("[L" ?,BE(B)
+ ("[[L" ?,B%(B)
+ ("]L" ?,B%(B)
+ ("[N" ?,BR(B)
+ ("[[N" ?,BR(B)
+ ("]N" ?,BR(B)
+ ("[O" ?,BS(B)
+ ("[[O" ?,BT(B)
+ ("[[[O" ?,BV(B)
+ ("]O" ?,BT(B)
+ ("][O" ?,BV(B)
+ ("[R" ?,B@(B)
+ ("[[R" ?,BX(B)
+ ("]R" ?,BX(B)
+ ("[S" ?,B)(B)
+ ("[[S" ?,B)(B)
+ ("[[[S" ?,B_(B)
+ ("]S" ?,B)(B)
+ ("[T" ?,B+(B)
+ ("[[T" ?,B+(B)
+ ("]T" ?,B+(B)
+ ("[U" ?,BZ(B)
+ ("[[U" ?,BY(B)
+ ("[[[U" ?,B\(B)
+ ("]U" ?,BY(B)
+ ("][U" ?,B\(B)
+ ("[Y" ?,B](B)
+ ("[Z" ?,B.(B)
+ ("[[Z" ?,B.(B)
+ ("]Z" ?,B.(B)
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
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