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