# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 870577170 0
# Node ID b3433731b84cf8d71f785f3924e0e67ac1daa93b
# Parent  6835f9c00ff55a72fb90bfe84d3c850cd62d9efa
In quail-mode-map, bind
ethio-insert-ethio-space Shift-SPACE.  Add translation rules to
Quail package "ethiopic".

diff -r 6835f9c00ff5 -r b3433731b84c leim/quail/ethiopic.el
--- a/leim/quail/ethiopic.el	Sun Aug 03 02:54:04 1997 +0000
+++ b/leim/quail/ethiopic.el	Sun Aug 03 02:59:30 1997 +0000
@@ -166,6 +166,7 @@
 (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 @@
  ("`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).