/[emacs]/emacs/leim/quail/ethiopic.el
ViewVC logotype

Diff of /emacs/leim/quail/ethiopic.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by fx, Sun Nov 4 16:58:25 2001 UTC revision 1.13.4.1 by miles, Fri Apr 4 06:19:54 2003 UTC
# Line 30  Line 30 
30    
31  (require 'quail)  (require 'quail)
32  (require 'ethio-util)  (require 'ethio-util)
33                    
34  ;;  ;;
35  ;; The package "ethiopic"  ;; The package "ethiopic"
36  ;;  ;;
# Line 342  C-' or `M-x ethio-gemination' Line 342  C-' or `M-x ethio-gemination'
342   ("qqee" ?$(3%-(B)   ("qqee" ?$(3%-(B)
343   ("qq" ?$(3%.(B)   ("qq" ?$(3%.(B)
344   ("qqo" ?$(3%/(B)   ("qqo" ?$(3%/(B)
345    
346   ("Qe" ?$(3!q(B)   ("Qe" ?$(3!q(B)
347   ("Qu" ?$(3!r(B)   ("Qu" ?$(3!r(B)
348   ("Qi" ?$(3!s(B)   ("Qi" ?$(3!s(B)
# Line 1141  C-' or `M-x ethio-gemination' Line 1141  C-' or `M-x ethio-gemination'
1141    
1142  (defun ethio-select-a-translation ()  (defun ethio-select-a-translation ()
1143    ;; The translation of `a' depends on the language    ;; The translation of `a' depends on the language
1144    ;; (either Tigrigna or Amharic).    ;; (either Tigrigna or Amharic).
1145    (quail-defrule "a"    (quail-defrule "a"
1146                   (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B)                   (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B)
1147                   "ethiopic"))                   "ethiopic"))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.13.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26