mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

In quail-mode-map, bind

Browse Source 
ethio-insert-ethio-space Shift-SPACE.  Add translation rules to
Quail package "ethiopic".
This commit is contained in:
Kenichi Handa 1997-08-03 02:59:30 +00:00
parent 8b7be11f41
commit 684295dbd3
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
leim/quail/ethiopic.el
View File

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