]> git.eshelyaron.com Git - emacs.git/commitdiff
Change Quail package name to "ethiopic".
authorKenichi Handa <handa@m17n.org>
Fri, 25 Jul 1997 07:28:50 +0000 (07:28 +0000)
committerKenichi Handa <handa@m17n.org>
Fri, 25 Jul 1997 07:28:50 +0000 (07:28 +0000)
(ethio-toggle-punctuation): Give "ethiopic" to quail-defrule.

leim/quail/ethiopic.el

index a7a390e8ba10c2ff0b722255690324a450550a48..0481b5991c3886c6b8d4a283924a6817c8de71e9 100644 (file)
@@ -93,7 +93,7 @@ With ARG, insert that many delimiters."
              '(?. [".."] ["..."] ?, [",,"] ?\; [";;"] ?: ["::"] [":::"] ?* ["**"])
            '(?\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)))
@@ -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) ?\e$(3"c\e(B ?\e$(3"f\e(B)
-                          "quail-ethio")))
+                          "ethiopic")))
 
 ;;; quail/ethiopic.el ends here