leim/quail/hebrew.el

   1 ;;; hebrew.el --- Quail package for inputting Hebrew characters  -*-coding: iso-2022-7bit;-*-
   2
   3 ;; Copyright (C) 1998 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5
   6 ;; Keywords: mule, input method, Hebrew
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; 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 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Commentary:
  26
  27 ;;; Code:
  28
  29 (require 'quail)
  30
  31 (quail-define-package
  32  "hebrew" "Hebrew" "\e,Hr\e(B" nil "Hebrew (ISO 8859-8) input method.
  33
  34 Based on Hebrew typewriter keys.
  35 Hebrew letters are assigned to lowercases.
  36 " nil t t t t nil nil nil nil nil t)
  37
  38 ;;  1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ ;~
  39 ;;   /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 [{ ]}
  40 ;;    \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: ," \|
  41 ;;     \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> .?
  42 ;;
  43
  44 (quail-define-rules
  45  ("`" ?\;)
  46  ("q" ?/)
  47  ("w" ?')
  48  ("e" ?\e,Hw\e(B)
  49  ("r" ?\e,Hx\e(B)
  50  ("t" ?\e,H`\e(B)
  51  ("y" ?\e,Hh\e(B)
  52  ("u" ?\e,He\e(B)
  53  ("i" ?\e,Ho\e(B)
  54  ("o" ?\e,Hm\e(B)
  55  ("p" ?\e,Ht\e(B)
  56  ("a" ?\e,Hy\e(B)
  57  ("s" ?\e,Hc\e(B)
  58  ("d" ?\e,Hb\e(B)
  59  ("f" ?\e,Hk\e(B)
  60  ("g" ?\e,Hr\e(B)
  61  ("h" ?\e,Hi\e(B)
  62  ("j" ?\e,Hg\e(B)
  63  ("k" ?\e,Hl\e(B)
  64  ("l" ?\e,Hj\e(B)
  65  (";" ?\e,Hs\e(B)
  66  ("z" ?\e,Hf\e(B)
  67  ("x" ?\e,Hq\e(B)
  68  ("c" ?\e,Ha\e(B)
  69  ("v" ?\e,Hd\e(B)
  70  ("b" ?\e,Hp\e(B)
  71  ("n" ?\e,Hn\e(B)
  72  ("m" ?\e,Hv\e(B)
  73  ("," ?\e,Hz\e(B)
  74  ("." ?\e,Hu\e(B)
  75  ("/" ?.)
  76  ("'" ?,))
  77
  78 ;;; arch-tag: 771b887d-15af-4a4d-b4ce-a4a86f5ca0cf
  79 ;;; hebrew.el ends here