From d7e034f65d111cafed38cd111cfd69c230a8ff0d Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 25 Jul 1997 07:28:50 +0000 Subject: [PATCH] Change Quail package name to "ethiopic". (ethio-toggle-punctuation): Give "ethiopic" to quail-defrule. --- leim/quail/ethiopic.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/leim/quail/ethiopic.el b/leim/quail/ethiopic.el index a7a390e8ba1..0481b5991c3 100644 --- a/leim/quail/ethiopic.el +++ b/leim/quail/ethiopic.el @@ -93,7 +93,7 @@ With ARG, insert that many delimiters." '(?. [".."] ["..."] ?, [",,"] ?\; [";;"] ?: ["::"] [":::"] ?* ["**"]) '(?$(3$i(B ?$(3%u(B ?. ?$(3$j(B ?, ?$(3$k(B ?\; ?$(3$h(B ?$(3$i(B ?: ?* ?$(3$o(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))) @@ -123,7 +123,7 @@ mark." (error "")))) ;; -;; The package "quail-ethio" +;; The package "ethiopic" ;; (quail-define-package @@ -1099,6 +1099,6 @@ C-' or ethio-gemination (lambda nil (quail-defrule "a" (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B) - "quail-ethio"))) + "ethiopic"))) ;;; quail/ethiopic.el ends here