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

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

Browse Source 
(ethio-select-a-translation): New function.
This commit is contained in:
Kenichi Handa 1998-06-20 02:58:52 +00:00
parent 1ca074258e
commit 7678db2590
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
leim/quail/ethiopic.el
View File

@ -1026,16 +1026,11 @@ C-' or `M-x ethio-gemination'
("`1000000" ["$(3%$%%(B"])
)
(add-hook 'quail-mode-hook
(lambda nil
(if (not (string= (quail-name) "ethiopic"))
nil
;; Also turn on the Ethio minor mode.
(ethio-mode 1)
;; 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"))))
(defun ethio-select-a-translation ()
;; 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