Mercurial > emacs
comparison leim/quail/ethiopic.el @ 22516:31e6e5b66fea
Don't add hook to quail-mode-hook.
(ethio-select-a-translation): New function.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 20 Jun 1998 02:58:52 +0000 |
| parents | e26933e2b3e8 |
| children | f5b12a1c1d70 |
comparison
equal
deleted
inserted
replaced
| 22515:c7f3d4ec2c69 | 22516:31e6e5b66fea |
|---|---|
| 1024 ("`800000" ["$(3%"%%(B"]) | 1024 ("`800000" ["$(3%"%%(B"]) |
| 1025 ("`900000" ["$(3%#%%(B"]) | 1025 ("`900000" ["$(3%#%%(B"]) |
| 1026 ("`1000000" ["$(3%$%%(B"]) | 1026 ("`1000000" ["$(3%$%%(B"]) |
| 1027 ) | 1027 ) |
| 1028 | 1028 |
| 1029 (add-hook 'quail-mode-hook | 1029 (defun ethio-select-a-translation () |
| 1030 (lambda nil | 1030 ;; The translation of `a' depends on the language |
| 1031 (if (not (string= (quail-name) "ethiopic")) | 1031 ;; (either Tigrigna or Amharic). |
| 1032 nil | 1032 (quail-defrule "a" |
| 1033 ;; Also turn on the Ethio minor mode. | 1033 (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B) |
| 1034 (ethio-mode 1) | 1034 "ethiopic")) |
| 1035 ;; The translation of `a' depends on the language | |
| 1036 ;; (either Tigrigna or Amharic). | |
| 1037 (quail-defrule "a" | |
| 1038 (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B) | |
| 1039 "ethiopic")))) | |
| 1040 | 1035 |
| 1041 ;;; quail/ethiopic.el ends here | 1036 ;;; quail/ethiopic.el ends here |