Commit 7678db25 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

Don't add hook to quail-mode-hook.

(ethio-select-a-translation): New function.
parent 1ca07425
...@@ -1026,16 +1026,11 @@ C-' or `M-x ethio-gemination' ...@@ -1026,16 +1026,11 @@ C-' or `M-x ethio-gemination'
("`1000000" ["$(3%$%%(B"]) ("`1000000" ["$(3%$%%(B"])
) )
(add-hook 'quail-mode-hook (defun ethio-select-a-translation ()
(lambda nil ;; The translation of `a' depends on the language
(if (not (string= (quail-name) "ethiopic")) ;; (either Tigrigna or Amharic).
nil (quail-defrule "a"
;; Also turn on the Ethio minor mode. (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B)
(ethio-mode 1) "ethiopic"))
;; The translation of `a' depends on the language
;; (either Tigrigna or Amharic).
(quail-defrule "a"
(if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B)
"ethiopic"))))
;;; quail/ethiopic.el ends here ;;; quail/ethiopic.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment