Initial revision

diff --git a/leim/quail/czech.el b/leim/quail/czech.el
new file mode 100644 (file)
index 0000000..c497292
--- /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" ?\e,Bl\e(B)
+ ("3" ?\e,B9\e(B)
+ ("4" ?\e,Bh\e(B)
+ ("5" ?\e,Bx\e(B)
+ ("6" ?\e,B>\e(B)
+ ("7" ?\e,B}\e(B)
+ ("8" ?\e,Ba\e(B)
+ ("9" ?\e,Bm\e(B)
+ ("0" ?\e,Bi\e(B)
+ ("!" ?1)
+ ("@" ?2)
+ ("#" ?3)
+ ("$" ?4)
+ ("%" ?5)
+ ("^" ?6)
+ ("&" ?7)
+ ("*" ?8)
+ ("(" ?9)
+ (")" ?0)
+ ("-" ?=)
+ ("_" ?%)
+ ("[" ?\e,Bz\e(B)
+ ("{" ?/)
+ ("]" ?\))
+ ("}" ?\()
+ ("|" ?`)
+ (";" ?\e,By\e(B)
+ (":" ?\")
+ ("'" ?\e,B'\e(B)
+ ("\"" ?!)
+ ("<" ??)
+ (">" ?:)
+ ("/" ?-)
+ ("?" ?_)
+ ("`" ?\;)
+ ("y" ?z)
+ ("z" ?y)
+ ("Y" ?Z)
+ ("Z" ?Y)
+ ("\\a" ?\e,Bd\e(B)
+ ("\\o" ?\e,Bv\e(B)
+ ("\\s" ?\e,B_\e(B)
+ ("\\u" ?\e,B|\e(B)
+ ("\\A" ?\e,BD\e(B)
+ ("\\O" ?\e,BV\e(B)
+ ("\\S" ?\e,B_\e(B)
+ ("\\U" ?\e,B\\e(B)
+ ("~u" ?\e,By\e(B)
+ ("~U" ?\e,BY\e(B)
+ ("=a" ?\e,Ba\e(B)
+ ("+c" ?\e,Bh\e(B)
+ ("+d" ?\e,Bo\e(B)
+ ("=e" ?\e,Bi\e(B)
+ ("+e" ?\e,Bl\e(B)
+ ("=i" ?\e,Bm\e(B)
+ ("+n" ?\e,Br\e(B)
+ ("=o" ?\e,Bs\e(B)
+ ("+r" ?\e,Bx\e(B)
+ ("+s" ?\e,B9\e(B)
+ ("+t" ?\e,B;\e(B)
+ ("=u" ?\e,Bz\e(B)
+ ("=z" ?\e,B}\e(B)
+ ("+y" ?\e,B>\e(B)
+ ("=A" ?\e,BA\e(B)
+ ("+C" ?\e,BH\e(B)
+ ("+D" ?\e,BO\e(B)
+ ("=E" ?\e,BI\e(B)
+ ("+E" ?\e,BL\e(B)
+ ("=I" ?\e,BM\e(B)
+ ("+N" ?\e,BR\e(B)
+ ("=O" ?\e,BS\e(B)
+ ("+R" ?\e,BX\e(B)
+ ("+S" ?\e,B)\e(B)
+ ("+T" ?\e,B+\e(B)
+ ("=U" ?\e,BZ\e(B)
+ ("=Z" ?\e,B]\e(B)
+ ("+Y" ?\e,B.\e(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" ?\e,Bl\e(B)
+ ("3" ?\e,B9\e(B)
+ ("4" ?\e,Bh\e(B)
+ ("5" ?\e,Bx\e(B)
+ ("6" ?\e,B>\e(B)
+ ("7" ?\e,B}\e(B)
+ ("8" ?\e,Ba\e(B)
+ ("9" ?\e,Bm\e(B)
+ ("0" ?\e,Bi\e(B)
+ ("!" ?1)
+ ("@" ?2)
+ ("#" ?3)
+ ("$" ?4)
+ ("%" ?5)
+ ("^" ?6)
+ ("&" ?7)
+ ("*" ?8)
+ ("(" ?9)
+ (")" ?0)
+ ("-" ?=)
+ ("_" ?%)
+ ("[" ?\e,Bz\e(B)
+ ("{" ?/)
+ ("]" ?\))
+ ("}" ?\()
+ ("|" ?`)
+ (";" ?\e,By\e(B)
+ (":" ?\")
+ ("'" ?\e,B'\e(B)
+ ("\"" ?!)
+ ("<" ??)
+ (">" ?:)
+ ("/" ?-)
+ ("?" ?_)
+ ("`" ?\;)
+ ("\\a" ?\e,Bd\e(B)
+ ("\\o" ?\e,Bv\e(B)
+ ("\\s" ?\e,B_\e(B)
+ ("\\u" ?\e,B|\e(B)
+ ("\\A" ?\e,BD\e(B)
+ ("\\O" ?\e,BV\e(B)
+ ("\\S" ?\e,B_\e(B)
+ ("\\U" ?\e,B\\e(B)
+ ("~u" ?\e,By\e(B)
+ ("~U" ?\e,BY\e(B)
+ ("=a" ?\e,Ba\e(B)
+ ("+c" ?\e,Bh\e(B)
+ ("+d" ?\e,Bo\e(B)
+ ("=e" ?\e,Bi\e(B)
+ ("+e" ?\e,Bl\e(B)
+ ("=i" ?\e,Bm\e(B)
+ ("+n" ?\e,Br\e(B)
+ ("=o" ?\e,Bs\e(B)
+ ("+r" ?\e,Bx\e(B)
+ ("+s" ?\e,B9\e(B)
+ ("+t" ?\e,B;\e(B)
+ ("=u" ?\e,Bz\e(B)
+ ("=y" ?\e,B}\e(B)
+ ("+z" ?\e,B>\e(B)
+ ("=A" ?\e,BA\e(B)
+ ("+C" ?\e,BH\e(B)
+ ("+D" ?\e,BO\e(B)
+ ("=E" ?\e,BI\e(B)
+ ("+E" ?\e,BL\e(B)
+ ("=I" ?\e,BM\e(B)
+ ("+N" ?\e,BR\e(B)
+ ("=O" ?\e,BS\e(B)
+ ("+R" ?\e,BX\e(B)
+ ("+S" ?\e,B)\e(B)
+ ("+T" ?\e,B+\e(B)
+ ("=Y" ?\e,B]\e(B)
+ ("+Z" ?\e,B.\e(B)
+ ("=U" ?\e,BZ\e(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" ?\e,Bl\e(B)
+ ("3" ?\e,B9\e(B)
+ ("4" ?\e,Bh\e(B)
+ ("5" ?\e,Bx\e(B)
+ ("6" ?\e,B>\e(B)
+ ("7" ?\e,B}\e(B)
+ ("8" ?\e,Ba\e(B)
+ ("9" ?\e,Bm\e(B)
+ ("0" ?\e,Bi\e(B)
+ ("+1" ?1)
+ ("+2" ?2)
+ ("+3" ?3)
+ ("+4" ?4)
+ ("+5" ?5)
+ ("+6" ?6)
+ ("+7" ?7)
+ ("+8" ?8)
+ ("+9" ?9)
+ ("+0" ?0)
+ ("+a" ?\e,Ba\e(B)
+ ("++a" ?\e,Bd\e(B)
+ ("+c" ?\e,Bh\e(B)
+ ("+d" ?\e,Bo\e(B)
+ ("+e" ?\e,Bi\e(B)
+ ("++e" ?\e,Bl\e(B)
+ ("+i" ?\e,Bm\e(B)
+ ("+l" ?\e,Be\e(B)
+ ("++l" ?\e,B5\e(B)
+ ("+n" ?\e,Br\e(B)
+ ("+o" ?\e,Bs\e(B)
+ ("++o" ?\e,Bv\e(B)
+ ("+++o" ?\e,Bt\e(B)
+ ("+r" ?\e,Bx\e(B)
+ ("++r" ?\e,B`\e(B)
+ ("+s" ?\e,B9\e(B)
+ ("++s" ?\e,B_\e(B)
+ ("+t" ?\e,B;\e(B)
+ ("+u" ?\e,Bz\e(B)
+ ("++u" ?\e,By\e(B)
+ ("+++u" ?\e,B|\e(B)
+ ("+y" ?\e,B}\e(B)
+ ("+z" ?\e,B>\e(B)
+ ("+A" ?\e,BA\e(B)
+ ("++A" ?\e,BD\e(B)
+ ("+C" ?\e,BH\e(B)
+ ("+D" ?\e,BO\e(B)
+ ("+E" ?\e,BI\e(B)
+ ("++E" ?\e,BL\e(B)
+ ("+I" ?\e,BM\e(B)
+ ("+L" ?\e,BE\e(B)
+ ("++L" ?\e,B%\e(B)
+ ("+N" ?\e,BR\e(B)
+ ("+O" ?\e,BS\e(B)
+ ("++O" ?\e,BV\e(B)
+ ("+++O" ?\e,BT\e(B)
+ ("+R" ?\e,BX\e(B)
+ ("++R" ?\e,B@\e(B)
+ ("+S" ?\e,B)\e(B)
+ ("++S" ?\e,B_\e(B)
+ ("+T" ?\e,B+\e(B)
+ ("+U" ?\e,BZ\e(B)
+ ("++U" ?\e,BY\e(B)
+ ("+++U" ?\e,B\\e(B)
+ ("+Y" ?\e,B]\e(B)
+ ("+Z" ?\e,B.\e(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 `\e,By\e(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" ?\e,By\e(B)
+ ("2" ?\e,Bl\e(B)
+ ("3" ?\e,B9\e(B)
+ ("4" ?\e,Bh\e(B)
+ ("5" ?\e,Bx\e(B)
+ ("6" ?\e,B>\e(B)
+ ("7" ?\e,B}\e(B)
+ ("8" ?\e,Ba\e(B)
+ ("9" ?\e,Bm\e(B)
+ ("0" ?\e,Bi\e(B)
+ ("+1" ?1)
+ ("+2" ?2)
+ ("+3" ?3)
+ ("+4" ?4)
+ ("+5" ?5)
+ ("+6" ?6)
+ ("+7" ?7)
+ ("+8" ?8)
+ ("+9" ?9)
+ ("+0" ?0)
+ ("+a" ?\e,Ba\e(B)
+ ("++a" ?\e,Bd\e(B)
+ ("+c" ?\e,Bh\e(B)
+ ("+d" ?\e,Bo\e(B)
+ ("+e" ?\e,Bi\e(B)
+ ("++e" ?\e,Bl\e(B)
+ ("+i" ?\e,Bm\e(B)
+ ("+l" ?\e,Be\e(B)
+ ("++l" ?\e,B5\e(B)
+ ("+n" ?\e,Br\e(B)
+ ("+o" ?\e,Bs\e(B)
+ ("++o" ?\e,Bv\e(B)
+ ("+++o" ?\e,Bt\e(B)
+ ("+r" ?\e,Bx\e(B)
+ ("++r" ?\e,B`\e(B)
+ ("+s" ?\e,B9\e(B)
+ ("++s" ?\e,B_\e(B)
+ ("+t" ?\e,B;\e(B)
+ ("+u" ?\e,Bz\e(B)
+ ("++u" ?\e,By\e(B)
+ ("+++u" ?\e,B|\e(B)
+ ("+y" ?\e,B}\e(B)
+ ("+z" ?\e,B>\e(B)
+ ("+A" ?\e,BA\e(B)
+ ("++A" ?\e,BD\e(B)
+ ("+C" ?\e,BH\e(B)
+ ("+D" ?\e,BO\e(B)
+ ("+E" ?\e,BI\e(B)
+ ("++E" ?\e,BL\e(B)
+ ("+I" ?\e,BM\e(B)
+ ("+L" ?\e,BE\e(B)
+ ("++L" ?\e,B%\e(B)
+ ("+N" ?\e,BR\e(B)
+ ("+O" ?\e,BS\e(B)
+ ("++O" ?\e,BV\e(B)
+ ("+++O" ?\e,BT\e(B)
+ ("+R" ?\e,BX\e(B)
+ ("++R" ?\e,B@\e(B)
+ ("+S" ?\e,B)\e(B)
+ ("++S" ?\e,B_\e(B)
+ ("+T" ?\e,B+\e(B)
+ ("+U" ?\e,BZ\e(B)
+ ("++U" ?\e,BY\e(B)
+ ("+++U" ?\e,B\\e(B)
+ ("+Y" ?\e,B]\e(B)
+ ("+Z" ?\e,B.\e(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 `\e,Bz\e(B' and `\e,By\e(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" ?\e,Bl\e(B)
+ ("3" ?\e,B9\e(B)
+ ("4" ?\e,Bh\e(B)
+ ("5" ?\e,Bx\e(B)
+ ("6" ?\e,B>\e(B)
+ ("7" ?\e,B}\e(B)
+ ("8" ?\e,Ba\e(B)
+ ("9" ?\e,Bm\e(B)
+ ("0" ?\e,Bi\e(B)
+ ("[" ?\e,Bz\e(B)
+ ("]" ?\e,By\e(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" ?\e,BA\e(B)
+ ("+A" ?\e,BD\e(B)
+ ("+=A" ?\e,BD\e(B)
+ ("+C" ?\e,BH\e(B)
+ ("+D" ?\e,BO\e(B)
+ ("=E" ?\e,BI\e(B)
+ ("+E" ?\e,BL\e(B)
+ ("=I" ?\e,BM\e(B)
+ ("=L" ?\e,B%\e(B)
+ ("+L" ?\e,BE\e(B)
+ ("+N" ?\e,BR\e(B)
+ ("=O" ?\e,BS\e(B)
+ ("+O" ?\e,BT\e(B)
+ ("+=O" ?\e,BV\e(B)
+ ("=R" ?\e,B@\e(B)
+ ("+R" ?\e,BX\e(B)
+ ("+S" ?\e,B)\e(B)
+ ("=S" ?\e,B_\e(B)
+ ("+T" ?\e,B+\e(B)
+ ("=U" ?\e,BZ\e(B)
+ ("+U" ?\e,BY\e(B)
+ ("+=U" ?\e,B\\e(B)
+ ("=Y" ?\e,B]\e(B)
+ ("+Z" ?\e,B.\e(B)
+ ("=a" ?\e,Ba\e(B)
+ ("+a" ?\e,Bd\e(B)
+ ("+=a" ?\e,Bd\e(B)
+ ("+c" ?\e,Bh\e(B)
+ ("+d" ?\e,Bo\e(B)
+ ("=e" ?\e,Bi\e(B)
+ ("+e" ?\e,Bl\e(B)
+ ("=i" ?\e,Bm\e(B)
+ ("=l" ?\e,B5\e(B)
+ ("+l" ?\e,Be\e(B)
+ ("+n" ?\e,Br\e(B)
+ ("=o" ?\e,Bs\e(B)
+ ("+o" ?\e,Bt\e(B)
+ ("+=o" ?\e,Bv\e(B)
+ ("=r" ?\e,B`\e(B)
+ ("+r" ?\e,Bx\e(B)
+ ("+s" ?\e,B9\e(B)
+ ("=s" ?\e,B_\e(B)
+ ("+t" ?\e,B;\e(B)
+ ("=u" ?\e,Bz\e(B)
+ ("+u" ?\e,By\e(B)
+ ("+=u" ?\e,B|\e(B)
+ ("=y" ?\e,B}\e(B)
+ ("+z" ?\e,B>\e(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 (file)
index 0000000..2f56874
--- /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 \e,B)\e(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" ?\e,B5\e(B)
+ ("3" ?\e,B9\e(B)
+ ("4" ?\e,Bh\e(B)
+ ("5" ?\e,B;\e(B)
+ ("6" ?\e,B>\e(B)
+ ("7" ?\e,B}\e(B)
+ ("8" ?\e,Ba\e(B)
+ ("9" ?\e,Bm\e(B)
+ ("0" ?\e,Bi\e(B)
+ ("!" ?1)
+ ("@" ?2)
+ ("#" ?3)
+ ("$" ?4)
+ ("%" ?5)
+ ("^" ?6)
+ ("&" ?7)
+ ("*" ?8)
+ ("(" ?9)
+ (")" ?0)
+ ("q" ?`)
+ ("Q" ?`)
+ ("-" ?=)
+ ("_" ?%)
+ ("=" ?')
+ ("[" ?\e,Bz\e(B)
+ ("{" ?/)
+ ("]" ?\e,Bd\e(B)
+ ("}" ?\()
+ ("\\" ?\e,Br\e(B)
+ ("|" ?\))
+ (";" ?\e,Bt\e(B)
+ (":" ?\")
+ ("'" ?\e,B'\e(B)
+ ("\"" ?!)
+ ("<" ??)
+ (">" ?:)
+ ("/" ?-)
+ ("?" ?_)
+ ("`" ?\;)
+ ("~" ?^)
+ ("y" ?z)
+ ("z" ?y)
+ ("Y" ?Z)
+ ("Z" ?Y)
+ ("=a" ?\e,Ba\e(B)
+ ("+a" ?\e,Bd\e(B)
+ ("+=a" ?\e,Bd\e(B)
+ ("+c" ?\e,Bh\e(B)
+ ("+d" ?\e,Bo\e(B)
+ ("=e" ?\e,Bi\e(B)
+ ("+e" ?\e,Bl\e(B)
+ ("=i" ?\e,Bm\e(B)
+ ("=l" ?\e,Be\e(B)
+ ("+l" ?\e,B5\e(B)
+ ("+n" ?\e,Br\e(B)
+ ("=o" ?\e,Bs\e(B)
+ ("+o" ?\e,Bt\e(B)
+ ("~o" ?\e,Bt\e(B)
+ ("+=o" ?\e,Bv\e(B)
+ ("=r" ?\e,B`\e(B)
+ ("+r" ?\e,Bx\e(B)
+ ("=s" ?\e,B_\e(B)
+ ("+s" ?\e,B9\e(B)
+ ("+t" ?\e,B;\e(B)
+ ("=u" ?\e,Bz\e(B)
+ ("+u" ?\e,By\e(B)
+ ("+=u" ?\e,B|\e(B)
+ ("=z" ?\e,B}\e(B)
+ ("+y" ?\e,B>\e(B)
+ ("=A" ?\e,BA\e(B)
+ ("+A" ?\e,BD\e(B)
+ ("+=A" ?\e,BD\e(B)
+ ("+C" ?\e,BH\e(B)
+ ("+D" ?\e,BO\e(B)
+ ("=E" ?\e,BI\e(B)
+ ("+E" ?\e,BL\e(B)
+ ("=I" ?\e,BM\e(B)
+ ("=L" ?\e,BE\e(B)
+ ("+L" ?\e,B%\e(B)
+ ("+N" ?\e,BR\e(B)
+ ("=O" ?\e,BS\e(B)
+ ("+O" ?\e,BT\e(B)
+ ("~O" ?\e,BT\e(B)
+ ("+=O" ?\e,BV\e(B)
+ ("=R" ?\e,B@\e(B)
+ ("+R" ?\e,BX\e(B)
+ ("=S" ?\e,B_\e(B)
+ ("+S" ?\e,B)\e(B)
+ ("+T" ?\e,B+\e(B)
+ ("=U" ?\e,BZ\e(B)
+ ("+U" ?\e,BY\e(B)
+ ("+=U" ?\e,B\\e(B)
+ ("=Z" ?\e,B]\e(B)
+ ("+Y" ?\e,B.\e(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" ?\e,B5\e(B)
+ ("3" ?\e,B9\e(B)
+ ("4" ?\e,Bh\e(B)
+ ("5" ?\e,B;\e(B)
+ ("6" ?\e,B>\e(B)
+ ("7" ?\e,B}\e(B)
+ ("8" ?\e,Ba\e(B)
+ ("9" ?\e,Bm\e(B)
+ ("0" ?\e,Bi\e(B)
+ ("[a" ?\e,Ba\e(B)
+ ("[[a" ?\e,Bd\e(B)
+ ("[[[a" ?\e,Bd\e(B)
+ ("[c" ?\e,Bh\e(B)
+ ("[[c" ?\e,Bh\e(B)
+ ("[d" ?\e,Bo\e(B)
+ ("[[d" ?\e,Bo\e(B)
+ ("[e" ?\e,Bi\e(B)
+ ("[[e" ?\e,Bl\e(B)
+ ("[i" ?\e,Bm\e(B)
+ ("[l" ?\e,Be\e(B)
+ ("[[l" ?\e,B5\e(B)
+ ("[n" ?\e,Br\e(B)
+ ("[[n" ?\e,Br\e(B)
+ ("[o" ?\e,Bs\e(B)
+ ("[[o" ?\e,Bt\e(B)
+ ("[[[o" ?\e,Bv\e(B)
+ ("[r" ?\e,B`\e(B)
+ ("[[r" ?\e,Bx\e(B)
+ ("[s" ?\e,B9\e(B)
+ ("[[s" ?\e,B9\e(B)
+ ("[[[s" ?\e,B_\e(B)
+ ("[t" ?\e,B;\e(B)
+ ("[[t" ?\e,B;\e(B)
+ ("[u" ?\e,Bz\e(B)
+ ("[[u" ?\e,By\e(B)
+ ("[[[u" ?\e,B|\e(B)
+ ("[y" ?\e,B}\e(B)
+ ("[z" ?\e,B>\e(B)
+ ("[[z" ?\e,B>\e(B)
+ ("[A" ?\e,BA\e(B)
+ ("[[A" ?\e,BD\e(B)
+ ("[[[A" ?\e,BD\e(B)
+ ("[C" ?\e,BH\e(B)
+ ("[[C" ?\e,BH\e(B)
+ ("[D" ?\e,BO\e(B)
+ ("[[D" ?\e,BO\e(B)
+ ("[E" ?\e,BI\e(B)
+ ("[[E" ?\e,BL\e(B)
+ ("[I" ?\e,BM\e(B)
+ ("[L" ?\e,BE\e(B)
+ ("[[L" ?\e,B%\e(B)
+ ("[N" ?\e,BR\e(B)
+ ("[[N" ?\e,BR\e(B)
+ ("[O" ?\e,BS\e(B)
+ ("[[O" ?\e,BT\e(B)
+ ("[[[O" ?\e,BV\e(B)
+ ("[R" ?\e,B@\e(B)
+ ("[[R" ?\e,BX\e(B)
+ ("[S" ?\e,B)\e(B)
+ ("[[S" ?\e,B)\e(B)
+ ("[[[S" ?\e,B_\e(B)
+ ("[T" ?\e,B+\e(B)
+ ("[[T" ?\e,B+\e(B)
+ ("[U" ?\e,BZ\e(B)
+ ("[[U" ?\e,BY\e(B)
+ ("[[[U" ?\e,B\\e(B)
+ ("[Y" ?\e,B]\e(B)
+ ("[Z" ?\e,B.\e(B)
+ ("[[Z" ?\e,B.\e(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" ?\e,B5\e(B)
+ ("3" ?\e,B9\e(B)
+ ("4" ?\e,Bh\e(B)
+ ("5" ?\e,B;\e(B)
+ ("6" ?\e,B>\e(B)
+ ("7" ?\e,B}\e(B)
+ ("8" ?\e,Ba\e(B)
+ ("9" ?\e,Bm\e(B)
+ ("0" ?\e,Bi\e(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" ?\e,Ba\e(B)
+ ("+a" ?\e,Bd\e(B)
+ ("+=a" ?\e,Bd\e(B)
+ ("+c" ?\e,Bh\e(B)
+ ("+d" ?\e,Bo\e(B)
+ ("=e" ?\e,Bi\e(B)
+ ("+e" ?\e,Bl\e(B)
+ ("=i" ?\e,Bm\e(B)
+ ("=l" ?\e,Be\e(B)
+ ("+l" ?\e,B5\e(B)
+ ("+n" ?\e,Br\e(B)
+ ("=o" ?\e,Bs\e(B)
+ ("+o" ?\e,Bt\e(B)
+ ("+=o" ?\e,Bv\e(B)
+ ("=r" ?\e,B`\e(B)
+ ("+r" ?\e,Bx\e(B)
+ ("=s" ?\e,B_\e(B)
+ ("+s" ?\e,B9\e(B)
+ ("+t" ?\e,B;\e(B)
+ ("=u" ?\e,Bz\e(B)
+ ("+u" ?\e,By\e(B)
+ ("+=u" ?\e,B|\e(B)
+ ("=y" ?\e,B}\e(B)
+ ("+z" ?\e,B>\e(B)
+ ("=A" ?\e,BA\e(B)
+ ("+A" ?\e,BD\e(B)
+ ("+=A" ?\e,BD\e(B)
+ ("+C" ?\e,BH\e(B)
+ ("+D" ?\e,BO\e(B)
+ ("=E" ?\e,BI\e(B)
+ ("+E" ?\e,BL\e(B)
+ ("=I" ?\e,BM\e(B)
+ ("=L" ?\e,BE\e(B)
+ ("+L" ?\e,B%\e(B)
+ ("+N" ?\e,BR\e(B)
+ ("=O" ?\e,BS\e(B)
+ ("+O" ?\e,BT\e(B)
+ ("+=O" ?\e,BV\e(B)
+ ("=R" ?\e,B@\e(B)
+ ("+R" ?\e,BX\e(B)
+ ("=S" ?\e,B_\e(B)
+ ("+S" ?\e,B)\e(B)
+ ("+T" ?\e,B+\e(B)
+ ("=U" ?\e,BZ\e(B)
+ ("+U" ?\e,BY\e(B)
+ ("+=U" ?\e,B\\e(B)
+ ("=Y" ?\e,B]\e(B)
+ ("+Z" ?\e,B.\e(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" ?\e,Ba\e(B)
+ ("[[a" ?\e,Bd\e(B)
+ ("[[[a" ?\e,Bd\e(B)
+ ("]a" ?\e,Bd\e(B)
+ ("][a" ?\e,Bd\e(B)
+ ("[c" ?\e,Bh\e(B)
+ ("[[c" ?\e,Bh\e(B)
+ ("]c" ?\e,Bh\e(B)
+ ("[d" ?\e,Bo\e(B)
+ ("[[d" ?\e,Bo\e(B)
+ ("]d" ?\e,Bo\e(B)
+ ("[e" ?\e,Bi\e(B)
+ ("[[e" ?\e,Bl\e(B)
+ ("]e" ?\e,Bl\e(B)
+ ("[i" ?\e,Bm\e(B)
+ ("[l" ?\e,Be\e(B)
+ ("[[l" ?\e,B5\e(B)
+ ("]l" ?\e,B5\e(B)
+ ("[n" ?\e,Br\e(B)
+ ("[[n" ?\e,Br\e(B)
+ ("]n" ?\e,Br\e(B)
+ ("[[o" ?\e,Bt\e(B)
+ ("[[[o" ?\e,Bv\e(B)
+ ("[o" ?\e,Bs\e(B)
+ ("]o" ?\e,Bt\e(B)
+ ("][o" ?\e,Bv\e(B)
+ ("[r" ?\e,B`\e(B)
+ ("[[r" ?\e,Bx\e(B)
+ ("]r" ?\e,Bx\e(B)
+ ("[s" ?\e,B9\e(B)
+ ("[[s" ?\e,B9\e(B)
+ ("[[[s" ?\e,B_\e(B)
+ ("]s" ?\e,B9\e(B)
+ ("[t" ?\e,B;\e(B)
+ ("[[t" ?\e,B;\e(B)
+ ("]t" ?\e,B;\e(B)
+ ("[u" ?\e,Bz\e(B)
+ ("[[u" ?\e,By\e(B)
+ ("[[[u" ?\e,B|\e(B)
+ ("]u" ?\e,By\e(B)
+ ("][u" ?\e,B|\e(B)
+ ("[y" ?\e,B}\e(B)
+ ("[z" ?\e,B>\e(B)
+ ("[[z" ?\e,B>\e(B)
+ ("]z" ?\e,B>\e(B)
+ ("[A" ?\e,BA\e(B)
+ ("[[A" ?\e,BD\e(B)
+ ("[[[A" ?\e,BD\e(B)
+ ("]A" ?\e,BD\e(B)
+ ("][A" ?\e,BD\e(B)
+ ("[C" ?\e,BH\e(B)
+ ("[[C" ?\e,BH\e(B)
+ ("]C" ?\e,BH\e(B)
+ ("[D" ?\e,BO\e(B)
+ ("[[D" ?\e,BO\e(B)
+ ("]D" ?\e,BO\e(B)
+ ("[E" ?\e,BI\e(B)
+ ("[[E" ?\e,BL\e(B)
+ ("]E" ?\e,BL\e(B)
+ ("[I" ?\e,BM\e(B)
+ ("[L" ?\e,BE\e(B)
+ ("[[L" ?\e,B%\e(B)
+ ("]L" ?\e,B%\e(B)
+ ("[N" ?\e,BR\e(B)
+ ("[[N" ?\e,BR\e(B)
+ ("]N" ?\e,BR\e(B)
+ ("[O" ?\e,BS\e(B)
+ ("[[O" ?\e,BT\e(B)
+ ("[[[O" ?\e,BV\e(B)
+ ("]O" ?\e,BT\e(B)
+ ("][O" ?\e,BV\e(B)
+ ("[R" ?\e,B@\e(B)
+ ("[[R" ?\e,BX\e(B)
+ ("]R" ?\e,BX\e(B)
+ ("[S" ?\e,B)\e(B)
+ ("[[S" ?\e,B)\e(B)
+ ("[[[S" ?\e,B_\e(B)
+ ("]S" ?\e,B)\e(B)
+ ("[T" ?\e,B+\e(B)
+ ("[[T" ?\e,B+\e(B)
+ ("]T" ?\e,B+\e(B)
+ ("[U" ?\e,BZ\e(B)
+ ("[[U" ?\e,BY\e(B)
+ ("[[[U" ?\e,B\\e(B)
+ ("]U" ?\e,BY\e(B)
+ ("][U" ?\e,B\\e(B)
+ ("[Y" ?\e,B]\e(B)
+ ("[Z" ?\e,B.\e(B)
+ ("[[Z" ?\e,B.\e(B)
+ ("]Z" ?\e,B.\e(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 (file)
index 0000000..6e24786
--- /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\e,Bx\e(Bejeme v\e,Ba\e(Bm hezk\e,Bi\e(B r\e,Ba\e(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 (file)
index 0000000..e33ade8
--- /dev/null
+++ b/lisp/language/slovak.el
@@ -0,0 +1,33 @@
+;;; slovak.el --- Support for Slovak
+
+;; Copyright (C) 1998 Free Software Foundation.
+
+;; Authors:    Tibor \e,B)\e(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\e,Ba\e(Bm pr\e,Bm\e(Bjemn\e,B}\e(B de\e,Br\e(B!")
+           (documentation . t)))
+
+(provide 'slovak)
+
+;; slovak.el ends here