'(?. [".."] ["..."] ?, [",,"] ?\; [";;"] ?: ["::"] [":::"] ?* ["**"])
'(?\e$(3$i\e(B ?\e$(3%u\e(B ?. ?\e$(3$j\e(B ?, ?\e$(3$k\e(B ?\; ?\e$(3$h\e(B ?\e$(3$i\e(B ?: ?* ?\e$(3$o\e(B))))
(while keys
- (quail-defrule (car keys) (car puncs) "quail-ethio")
+ (quail-defrule (car keys) (car puncs) "ethiopic")
(setq keys (cdr keys)
puncs (cdr puncs)))
(force-mode-line-update)))
(error ""))))
;;
-;; The package "quail-ethio"
+;; The package "ethiopic"
;;
(quail-define-package
(lambda nil
(quail-defrule "a"
(if (ethio-prefer-amharic-p) ?\e$(3"c\e(B ?\e$(3"f\e(B)
- "quail-ethio")))
+ "ethiopic")))
;;; quail/ethiopic.el ends here