code.delx.au - gnu-emacs/blob - leim/quail/hebrew.el

   1 ;;; hebrew.el --- Quail package for inputting Hebrew characters  -*-coding: iso-2022-7bit;-*-
   2
   3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
   4 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   5 ;;   Registration Number H14PRO021
   6
   7 ;; Keywords: mule, input method, Hebrew
   8
   9 ;; This file is part of GNU Emacs.
  10
  11 ;; GNU Emacs is free software; you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; GNU Emacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  24 ;; Boston, MA 02110-1301, USA.
  25
  26 ;;; Commentary:
  27
  28 ;;; Code:
  29
  30 (require 'quail)
  31
  32 (quail-define-package
  33  "hebrew" "Hebrew" "\e,Hr\e(B" nil "Hebrew (ISO 8859-8) input method.
  34
  35 Based on Hebrew typewriter keys.
  36 Hebrew letters are assigned to lowercases.
  37 " nil t t t t nil nil nil nil nil t)
  38
  39 ;;  1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ ;~
  40 ;;   /Q 'W \e,Hw\e(BE \e,Hx\e(BR \e,H`\e(BT \e,Hh\e(BY \e,He\e(BU \e,Ho\e(BI \e,Hm\e(BO \e,Ht\e(BP [{ ]}
  41 ;;    \e,Hy\e(BA \e,Hc\e(BS \e,Hb\e(BD \e,Hk\e(BF \e,Hr\e(BG \e,Hi\e(BH \e,Hg\e(BJ \e,Hl\e(BK \e,Hj\e(BL \e,Hs\e(B: ," \|
  42 ;;     \e,Hf\e(BZ \e,Hq\e(BX \e,Ha\e(BC \e,Hd\e(BV \e,Hp\e(BB \e,Hn\e(BN \e,Hv\e(BM \e,Hz\e(B< \e,Hu\e(B> .?
  43 ;;
  44
  45 (quail-define-rules
  46  ("`" ?\;)
  47  ("q" ?/)
  48  ("w" ?')
  49  ("e" ?\e,Hw\e(B)
  50  ("r" ?\e,Hx\e(B)
  51  ("t" ?\e,H`\e(B)
  52  ("y" ?\e,Hh\e(B)
  53  ("u" ?\e,He\e(B)
  54  ("i" ?\e,Ho\e(B)
  55  ("o" ?\e,Hm\e(B)
  56  ("p" ?\e,Ht\e(B)
  57  ("a" ?\e,Hy\e(B)
  58  ("s" ?\e,Hc\e(B)
  59  ("d" ?\e,Hb\e(B)
  60  ("f" ?\e,Hk\e(B)
  61  ("g" ?\e,Hr\e(B)
  62  ("h" ?\e,Hi\e(B)
  63  ("j" ?\e,Hg\e(B)
  64  ("k" ?\e,Hl\e(B)
  65  ("l" ?\e,Hj\e(B)
  66  (";" ?\e,Hs\e(B)
  67  ("z" ?\e,Hf\e(B)
  68  ("x" ?\e,Hq\e(B)
  69  ("c" ?\e,Ha\e(B)
  70  ("v" ?\e,Hd\e(B)
  71  ("b" ?\e,Hp\e(B)
  72  ("n" ?\e,Hn\e(B)
  73  ("m" ?\e,Hv\e(B)
  74  ("," ?\e,Hz\e(B)
  75  ("." ?\e,Hu\e(B)
  76  ("/" ?.)
  77  ("'" ?,))
  78
  79 ;;; arch-tag: 771b887d-15af-4a4d-b4ce-a4a86f5ca0cf
  80 ;;; hebrew.el ends here