diff options
| author | Kenichi Handa | 1998-06-20 02:58:52 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-06-20 02:58:52 +0000 |
| commit | 7678db25908533644d10d7eb5164ca588ab9b663 (patch) | |
| tree | fec8b3479dedc62e32a52836c4c2c0456bb36f79 | |
| parent | 1ca074258e51b83a3a8eb988f2fcc7f98ecbcefc (diff) | |
| download | emacs-7678db25908533644d10d7eb5164ca588ab9b663.tar.gz emacs-7678db25908533644d10d7eb5164ca588ab9b663.zip | |
Don't add hook to quail-mode-hook.
(ethio-select-a-translation): New function.
| -rw-r--r-- | leim/quail/ethiopic.el | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/leim/quail/ethiopic.el b/leim/quail/ethiopic.el index 3377b9117b0..951e503ccc1 100644 --- a/leim/quail/ethiopic.el +++ b/leim/quail/ethiopic.el | |||
| @@ -1026,16 +1026,11 @@ C-' or `M-x ethio-gemination' | |||
| 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 |