diff options
| author | Kenichi Handa | 1997-08-03 02:59:30 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-08-03 02:59:30 +0000 |
| commit | 684295dbd3e38ba95c320dca27a67466e3abbdfa (patch) | |
| tree | fd153695086ba0dc50ea366b2985c1ce9fa602eb | |
| parent | 8b7be11f41005f8e8bd0e26d63be318ad2e5fdcf (diff) | |
| download | emacs-684295dbd3e38ba95c320dca27a67466e3abbdfa.tar.gz emacs-684295dbd3e38ba95c320dca27a67466e3abbdfa.zip | |
In quail-mode-map, bind
ethio-insert-ethio-space Shift-SPACE. Add translation rules to
Quail package "ethiopic".
| -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 | |||
| 166 | (define-key quail-mode-map " " 'ethio-insert-space) | 166 | (define-key quail-mode-map " " 'ethio-insert-space) |
| 167 | (define-key quail-mode-map [?\C-^] 'ethio-insert-ethio-space) | 167 | (define-key quail-mode-map [?\C-^] 'ethio-insert-ethio-space) |
| 168 | (define-key quail-mode-map [?\C-'] 'ethio-gemination) | 168 | (define-key quail-mode-map [?\C-'] 'ethio-gemination) |
| 169 | (define-key quail-mode-map [?\S- ] 'ethio-insert-ethio-space) | ||
| 169 | 170 | ||
| 170 | (quail-define-rules | 171 | (quail-define-rules |
| 171 | ("he" ?$(3!!(B) | 172 | ("he" ?$(3!!(B) |
| @@ -1091,7 +1092,33 @@ C-' or ethio-gemination | |||
| 1091 | ("`90" ?$(3%#(B) | 1092 | ("`90" ?$(3%#(B) |
| 1092 | ("`100" ?$(3%$(B) | 1093 | ("`100" ?$(3%$(B) |
| 1093 | ("`1000" ["$(3$y%$(B"]) | 1094 | ("`1000" ["$(3$y%$(B"]) |
| 1095 | ("`2000" ["$(3$z%$(B"]) | ||
| 1096 | ("`3000" ["$(3${%$(B"]) | ||
| 1097 | ("`4000" ["$(3$|%$(B"]) | ||
| 1098 | ("`5000" ["$(3$}%$(B"]) | ||
| 1099 | ("`6000" ["$(3$~%$(B"]) | ||
| 1100 | ("`7000" ["$(3%!%$(B"]) | ||
| 1101 | ("`8000" ["$(3%"%$(B"]) | ||
| 1102 | ("`9000" ["$(3%#%$(B"]) | ||
| 1094 | ("`10000" ?$(3%%(B) | 1103 | ("`10000" ?$(3%%(B) |
| 1104 | ("`20000" ["$(3$q%%(B"]) | ||
| 1105 | ("`30000" ["$(3$r%%(B"]) | ||
| 1106 | ("`40000" ["$(3$s%%(B"]) | ||
| 1107 | ("`50000" ["$(3$t%%(B"]) | ||
| 1108 | ("`60000" ["$(3$u%%(B"]) | ||
| 1109 | ("`70000" ["$(3$v%%(B"]) | ||
| 1110 | ("`80000" ["$(3$w%%(B"]) | ||
| 1111 | ("`90000" ["$(3$x%%(B"]) | ||
| 1112 | ("`100000" ["$(3$y%%(B"]) | ||
| 1113 | ("`200000" ["$(3$z%%(B"]) | ||
| 1114 | ("`300000" ["$(3${%%(B"]) | ||
| 1115 | ("`400000" ["$(3$|%%(B"]) | ||
| 1116 | ("`500000" ["$(3$}%%(B"]) | ||
| 1117 | ("`600000" ["$(3$~%%(B"]) | ||
| 1118 | ("`700000" ["$(3%!%%(B"]) | ||
| 1119 | ("`800000" ["$(3%"%%(B"]) | ||
| 1120 | ("`900000" ["$(3%#%%(B"]) | ||
| 1121 | ("`1000000" ["$(3%$%%(B"]) | ||
| 1095 | ) | 1122 | ) |
| 1096 | 1123 | ||
| 1097 | ;; The translation of `a' depends on the language (Tigrigna or Amharic). | 1124 | ;; The translation of `a' depends on the language (Tigrigna or Amharic). |