From: Richard M. Stallman Date: Tue, 17 Mar 1998 05:49:29 +0000 (+0000) Subject: Initial revision X-Git-Tag: emacs-20.3~1878 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=25d90e68d01beb215cf61d102134a42fc8a27000;p=emacs.git Initial revision --- 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 +;; Maintainer: Milan Zamazal +;; 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 , +;; Milan Zamazal +;; Maintainer: Milan Zamazal +;; 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 +;; Maintainer: Milan Zamazal +;; 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 , +;; Milan Zamazal +;; Maintainer: Milan Zamazal +;; 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