Mercurial > emacs
comparison leim/quail/hebrew.el @ 88155:d7ddb3e565de
sync with trunk
author | Henrik Enberg <henrik.enberg@telia.com> |
---|---|
date | Mon, 16 Jan 2006 00:03:54 +0000 |
parents | 23a1cea22d13 |
children |
comparison
equal
deleted
inserted
replaced
88154:8ce476d3ba36 | 88155:d7ddb3e565de |
---|---|
1 ;;; hebrew.el --- Quail package for inputting Hebrew characters -*-coding: iso-2022-7bit;-*- | 1 ;;; hebrew.el --- Quail package for inputting Hebrew characters -*-coding: iso-2022-7bit;-*- |
2 | 2 |
3 ;; Copyright (C) 1998 Electrotechnical Laboratory, JAPAN. | 3 ;; Copyright (C) 1999 |
4 ;; Licensed to the Free Software Foundation. | 4 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
5 ;; Registration Number H14PRO021 | |
5 | 6 |
6 ;; Keywords: mule, input method, Hebrew | 7 ;; Keywords: mule, input method, Hebrew |
7 | 8 |
8 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
9 | 10 |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
18 ;; GNU General Public License for more details. | 19 ;; GNU General Public License for more details. |
19 | 20 |
20 ;; You should have received a copy of the GNU General Public License | 21 ;; You should have received a copy of the GNU General Public License |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
23 ;; Boston, MA 02111-1307, USA. | 24 ;; Boston, MA 02110-1301, USA. |
24 | 25 |
25 ;;; Commentary: | 26 ;;; Commentary: |
26 | 27 |
27 ;;; Code: | 28 ;;; Code: |
28 | 29 |
33 | 34 |
34 Based on Hebrew typewriter keys. | 35 Based on Hebrew typewriter keys. |
35 Hebrew letters are assigned to lowercases. | 36 Hebrew letters are assigned to lowercases. |
36 " nil t t t t nil nil nil nil nil t) | 37 " nil t t t t nil nil nil nil nil t) |
37 | 38 |
38 ;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) _- += ~; | 39 ;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ ;~ |
39 ;; /Q 'W ,Hw(BE ,Hx(BR ,H`(BT ,Hh(BY ,He(BU ,Ho(BI ,Hm(BO ,Ht(BP {[ {] | 40 ;; /Q 'W ,Hw(BE ,Hx(BR ,H`(BT ,Hh(BY ,He(BU ,Ho(BI ,Hm(BO ,Ht(BP [{ ]} |
40 ;; ,Hy(BA ,Hc(BS ,Hb(BD ,Hk(BF ,Hr(BG ,Hi(BH ,Hg(BJ ,Hl(BK ,Hj(BL :,Hs(B ", |\ | 41 ;; ,Hy(BA ,Hc(BS ,Hb(BD ,Hk(BF ,Hr(BG ,Hi(BH ,Hg(BJ ,Hl(BK ,Hj(BL ,Hs(B: ," \| |
41 ;; ,Hf(BZ ,Hq(BX ,Ha(BC ,Hd(BV ,Hp(BB ,Hn(BN ,Hv(BM <,Hz(B >,Hu(B ?. | 42 ;; ,Hf(BZ ,Hq(BX ,Ha(BC ,Hd(BV ,Hp(BB ,Hn(BN ,Hv(BM ,Hz(B< ,Hu(B> .? |
42 ;; | 43 ;; |
43 | 44 |
44 (quail-define-rules | 45 (quail-define-rules |
45 ("`" ?\;) | 46 ("`" ?\;) |
46 ("q" ?/) | 47 ("q" ?/) |
73 ("," ?,Hz(B) | 74 ("," ?,Hz(B) |
74 ("." ?,Hu(B) | 75 ("." ?,Hu(B) |
75 ("/" ?.) | 76 ("/" ?.) |
76 ("'" ?,)) | 77 ("'" ?,)) |
77 | 78 |
79 ;;; arch-tag: 771b887d-15af-4a4d-b4ce-a4a86f5ca0cf | |
78 ;;; hebrew.el ends here | 80 ;;; hebrew.el ends here |