# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 869815730 0
# Node ID 7b3efca4f45519ae10a531cf809eb646c9b1861a
# Parent  10af354062206f7f1338df94471bda340e2105f7
Change Quail package name to "ethiopic".
(ethio-toggle-punctuation): Give "ethiopic" to quail-defrule.

diff -r 10af35406220 -r 7b3efca4f455 leim/quail/ethiopic.el
--- a/leim/quail/ethiopic.el	Fri Jul 25 05:59:39 1997 +0000
+++ b/leim/quail/ethiopic.el	Fri Jul 25 07:28:50 1997 +0000
@@ -93,7 +93,7 @@
 	      '(?. [".."] ["..."] ?, [",,"] ?\; [";;"] ?: ["::"] [":::"] ?* ["**"])
 	    '(?$(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 @@
     (error ""))))
 		
 ;;
-;; The package "quail-ethio"
+;; The package "ethiopic"
 ;;
 
 (quail-define-package
@@ -1099,6 +1099,6 @@
 	  (lambda nil
 	    (quail-defrule "a"
 			   (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B)
-			   "quail-ethio")))
+			   "ethiopic")))
 
 ;;; quail/ethiopic.el ends here