From: Kenichi Handa <handa@m17n.org>
Date: Sun, 3 Aug 1997 02:59:30 +0000 (+0000)
Subject: In quail-mode-map, bind
X-Git-Tag: emacs-20.1~853
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=684295dbd3e38ba95c320dca27a67466e3abbdfa;p=emacs.git

In quail-mode-map, bind
ethio-insert-ethio-space Shift-SPACE.  Add translation rules to
Quail package "ethiopic".
---

diff --git a/leim/quail/ethiopic.el b/leim/quail/ethiopic.el
index 0481b5991c3..371100976dd 100644
--- a/leim/quail/ethiopic.el
+++ b/leim/quail/ethiopic.el
@@ -166,6 +166,7 @@ C-' or ethio-gemination
 (define-key quail-mode-map " "  'ethio-insert-space)
 (define-key quail-mode-map [?\C-^] 'ethio-insert-ethio-space)
 (define-key quail-mode-map [?\C-'] 'ethio-gemination)
+(define-key quail-mode-map [?\S- ] 'ethio-insert-ethio-space)
 
 (quail-define-rules
  ("he" ?$(3!!(B)
@@ -1091,7 +1092,33 @@ C-' or ethio-gemination
  ("`90" ?$(3%#(B)
  ("`100" ?$(3%$(B)
  ("`1000" ["$(3$y%$(B"])
+ ("`2000" ["$(3$z%$(B"])
+ ("`3000" ["$(3${%$(B"])
+ ("`4000" ["$(3$|%$(B"])
+ ("`5000" ["$(3$}%$(B"])
+ ("`6000" ["$(3$~%$(B"])
+ ("`7000" ["$(3%!%$(B"])
+ ("`8000" ["$(3%"%$(B"])
+ ("`9000" ["$(3%#%$(B"])
  ("`10000" ?$(3%%(B)
+ ("`20000" ["$(3$q%%(B"])
+ ("`30000" ["$(3$r%%(B"])
+ ("`40000" ["$(3$s%%(B"])
+ ("`50000" ["$(3$t%%(B"])
+ ("`60000" ["$(3$u%%(B"])
+ ("`70000" ["$(3$v%%(B"])
+ ("`80000" ["$(3$w%%(B"])
+ ("`90000" ["$(3$x%%(B"])
+ ("`100000" ["$(3$y%%(B"])
+ ("`200000" ["$(3$z%%(B"])
+ ("`300000" ["$(3${%%(B"])
+ ("`400000" ["$(3$|%%(B"])
+ ("`500000" ["$(3$}%%(B"])
+ ("`600000" ["$(3$~%%(B"])
+ ("`700000" ["$(3%!%%(B"])
+ ("`800000" ["$(3%"%%(B"])
+ ("`900000" ["$(3%#%%(B"])
+ ("`1000000" ["$(3%$%%(B"])
 )
 
 ;; The translation of `a' depends on the language (Tigrigna or Amharic).