Mercurial > hg > xemacs-beta

annotate lisp/quail/quail-hebrew.el @ 123:c77884c6318d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag r20-1b14 for changeset d2f30a177268
author cvs
date Mon, 13 Aug 2007 09:26:04 +0200
parents 131b0175ea99
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
70
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
1 ;; Quail packages for inputting Greek characters.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
2 ;; Copyright (C) 1992 Free Software Foundation, Inc.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
3 ;; This file is part of Mule (MULtilingual Enhancement of GNU Emacs).
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
4
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
5 ;; Mule is free software distributed in the form of patches to GNU Emacs.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
6 ;; You can redistribute it and/or modify
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
7 ;; it under the terms of the GNU General Public License as published by
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
8 ;; the Free Software Foundation; either version 1, or (at your option)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
9 ;; any later version.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
10
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
11 ;; Mule is distributed in the hope that it will be useful,
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
14 ;; GNU General Public License for more details.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
15
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
16 ;; You should have received a copy of the GNU General Public License
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
17 ;; along with GNU Emacs; see the file COPYING. If not, write to
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
19
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
20 ;;; 92.8.7 created for Mule Ver.0.9.5 by T.Matsuzawa <mzw_t@yhp.hp.com>
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
21 ;;; 93.1.7 modified for Mule ver.0.9.7 by Takahashi N. <ntakahas@etl.go.jp>
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
22 ;;; 93.4.10 modified for Mule Ver.0.9.7.1 by K.Handa <handa@etl.go.jp>
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
23 ;;; lc-ascr2l is used for Hebrew punctuation characters.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
24 ;;; 93.6.11 modified for Mule Ver.0.9.8 by K.Handa <handa@etl.go.jp>
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
25 ;;; Modfied for visually mode.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
26
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
27 (require 'quail)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
28
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
29 (quail-define-package "hebrew" "HEBREW" nil "Hebrew (ISO 8859-8) encoding.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
30
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
31 Based on Hebrew typewriter keys.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
32 Hebrew letters are assigned to lowercases.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
33 " nil t t t t nil nil '(visual-mode))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
34
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
35 ;; 1[2]![0] 2[2]@[0] 3[2]#[0] 4[2]$[0] 5[2]%[0] 6[2]^[0] 7[2]&[0] 8[2]*[0] 9[2]([0] 0[2])[0] [2]_-[0] [2]+=[0] [2]~;[0]
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
36 ;; [2]/[0]Q [2]'[0]W [2],Hw[0](BE [2],Hx[0](BR [2],H`[0](BT [2],Hh[0](BY [2],He[0](BU [2],Ho[0](BI [2],Hm[0](BO [2],Ht[0](BP [2]{[[0] [2]{][0]
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
37 ;; [2],Hy[0](BA [2],Hc[0](BS [2],Hb[0](BD [2],Hk[0](BF [2],Hr[0](BG [2],Hi[0](BH [2],Hg[0](BJ [2],Hl[0](BK [2],Hj[0](BL [2]:,Hs[0](B [2]",[0] [2]|\[0]
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
38 ;; [2],Hf[0](BZ [2],Hq[0](BX [2],Ha[0](BC [2],Hd[0](BV [2],Hp[0](BB [2],Hn[0](BN [2],Hv[0](BM [2]<,Hz[0](B [2]>,Hu[0](B [2]?.[0]
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
39 ;; [2] [0]
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
40
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
41 (quail-defrule "1" ?1)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
42 (quail-defrule "2" ?2)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
43 (quail-defrule "3" ?3)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
44 (quail-defrule "4" ?4)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
45 (quail-defrule "5" ?5)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
46 (quail-defrule "6" ?6)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
47 (quail-defrule "7" ?7)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
48 (quail-defrule "8" ?8)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
49 (quail-defrule "9" ?9)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
50 (quail-defrule "0" ?0)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
51 (quail-defrule "-" (make-character lc-ascr2l ?-))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
52 (quail-defrule "=" (make-character lc-ascr2l ?=))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
53 (quail-defrule "`" (make-character lc-ascr2l ?;))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
54 (quail-defrule "q" (make-character lc-ascr2l ?/))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
55 (quail-defrule "w" (make-character lc-ascr2l ?'))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
56 (quail-defrule "e" ?[2],Hw[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
57 (quail-defrule "r" ?[2],Hx[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
58 (quail-defrule "t" ?[2],H`[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
59 (quail-defrule "y" ?[2],Hh[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
60 (quail-defrule "u" ?[2],He[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
61 (quail-defrule "i" ?[2],Ho[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
62 (quail-defrule "o" ?[2],Hm[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
63 (quail-defrule "p" ?[2],Ht[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
64 (quail-defrule "[" (make-character lc-ascr2l ?\[))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
65 (quail-defrule "]" (make-character lc-ascr2l ?\]))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
66 (quail-defrule "a" ?[2],Hy[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
67 (quail-defrule "s" ?[2],Hc[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
68 (quail-defrule "d" ?[2],Hb[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
69 (quail-defrule "f" ?[2],Hk[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
70 (quail-defrule "g" ?[2],Hr[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
71 (quail-defrule "h" ?[2],Hi[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
72 (quail-defrule "j" ?[2],Hg[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
73 (quail-defrule "k" ?[2],Hl[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
74 (quail-defrule "l" ?[2],Hj[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
75 (quail-defrule ";" ?[2],Hs[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
76 (quail-defrule "'" (make-character lc-ascr2l ?,))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
77 (quail-defrule "\\" (make-character lc-ascr2l ?\\))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
78 (quail-defrule "z" ?[2],Hf[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
79 (quail-defrule "x" ?[2],Hq[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
80 (quail-defrule "c" ?[2],Ha[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
81 (quail-defrule "v" ?[2],Hd[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
82 (quail-defrule "b" ?[2],Hp[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
83 (quail-defrule "n" ?[2],Hn[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
84 (quail-defrule "m" ?[2],Hv[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
85 (quail-defrule "," ?[2],Hz[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
86 (quail-defrule "." ?[2],Hu[0](B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
87 (quail-defrule "/" (make-character lc-ascr2l ?.))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
88
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
89 (quail-defrule "!" (make-character lc-ascr2l ?!))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
90 (quail-defrule "@" (make-character lc-ascr2l ?@))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
91 (quail-defrule "#" (make-character lc-ascr2l ?#))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
92 (quail-defrule "$" (make-character lc-ascr2l ?$))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
93 (quail-defrule "%" (make-character lc-ascr2l ?%))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
94 (quail-defrule "^" (make-character lc-ascr2l ?^))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
95 (quail-defrule "&" (make-character lc-ascr2l ?&))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
96 (quail-defrule "*" (make-character lc-ascr2l ?*))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
97 (quail-defrule "(" (make-character lc-ascr2l ?())
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
98 (quail-defrule ")" (make-character lc-ascr2l ?)))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
99 (quail-defrule "_" (make-character lc-ascr2l ?_))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
100 (quail-defrule "+" (make-character lc-ascr2l ?+))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
101 (quail-defrule "~" (make-character lc-ascr2l ?~))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
102 (quail-defrule "Q" ?Q)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
103 (quail-defrule "W" ?W)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
104 (quail-defrule "E" ?E)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
105 (quail-defrule "R" ?R)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
106 (quail-defrule "T" ?T)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
107 (quail-defrule "Y" ?Y)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
108 (quail-defrule "U" ?U)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
109 (quail-defrule "I" ?I)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
110 (quail-defrule "O" ?O)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
111 (quail-defrule "P" ?P)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
112 (quail-defrule "{" (make-character lc-ascr2l ?{))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
113 (quail-defrule "}" (make-character lc-ascr2l ?}))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
114 (quail-defrule "A" ?A)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
115 (quail-defrule "S" ?S)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
116 (quail-defrule "D" ?D)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
117 (quail-defrule "F" ?F)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
118 (quail-defrule "G" ?G)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
119 (quail-defrule "H" ?H)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
120 (quail-defrule "J" ?J)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
121 (quail-defrule "K" ?K)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
122 (quail-defrule "L" ?L)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
123 (quail-defrule ":" (make-character lc-ascr2l ?:))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
124 (quail-defrule "\"" (make-character lc-ascr2l ?\"))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
125 (quail-defrule "|" (make-character lc-ascr2l ?|))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
126 (quail-defrule "Z" ?Z)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
127 (quail-defrule "X" ?X)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
128 (quail-defrule "C" ?C)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
129 (quail-defrule "V" ?V)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
130 (quail-defrule "B" ?B)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
131 (quail-defrule "N" ?N)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
132 (quail-defrule "M" ?M)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
133 (quail-defrule "<" (make-character lc-ascr2l ?<))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
134 (quail-defrule ">" (make-character lc-ascr2l ?>))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
135 (quail-defrule "?" (make-character lc-ascr2l ??))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
136 (quail-defrule " " (make-character lc-ascr2l ? ))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
137
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
138 (quail-setup-current-package)