From 684295dbd3e38ba95c320dca27a67466e3abbdfa Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Sun, 3 Aug 1997 02:59:30 +0000
Subject: [PATCH] In quail-mode-map, bind ethio-insert-ethio-space Shift-SPACE.
  Add translation rules to Quail package "ethiopic".

---
 leim/quail/ethiopic.el | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

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). 
-- 
2.39.2