Mercurial > emacs
changeset 19093:b3433731b84c
In quail-mode-map, bind
ethio-insert-ethio-space Shift-SPACE. Add translation rules to
Quail package "ethiopic".
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sun, 03 Aug 1997 02:59:30 +0000 |
| parents | 6835f9c00ff5 |
| children | 3f7a3248883b |
| files | leim/quail/ethiopic.el |
| diffstat | 1 files changed, 27 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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).