diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-08-03 02:59:30 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-08-03 02:59:30 +0000 |
| commit | 8a163b2e7b6e6629af4da5c577f73cf10dbeddb4 (patch) | |
| tree | 046a2ad74c563ce1bdc61e593d7caa111a9d4481 /leim | |
| parent | d97596c9a5d4a398aec95cecc1c738b14d97ddbc (diff) | |
| download | emacs-8a163b2e7b6e6629af4da5c577f73cf10dbeddb4.tar.gz | |
In quail-mode-map, bind
ethio-insert-ethio-space Shift-SPACE. Add translation rules to
Quail package "ethiopic".
Diffstat (limited to 'leim')
| -rw-r--r-- | leim/quail/ethiopic.el | 27 |
1 files changed, 27 insertions, 0 deletions
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). |