Mercurial > emacs

changeset 18965:7b3efca4f455

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change Quail package name to "ethiopic". (ethio-toggle-punctuation): Give "ethiopic" to quail-defrule.
author Kenichi Handa <handa@m17n.org>
date Fri, 25 Jul 1997 07:28:50 +0000
parents 10af35406220
children a5a44ea689a5
files leim/quail/ethiopic.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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