aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa1997-07-25 07:28:50 +0000
committerKenichi Handa1997-07-25 07:28:50 +0000
commitd7e034f65d111cafed38cd111cfd69c230a8ff0d (patch)
treecbde9e42c6fe187e63904ba2974377657b72953c
parent5ab5daada52deee23328438772b14b3f9c150a77 (diff)
downloademacs-d7e034f65d111cafed38cd111cfd69c230a8ff0d.tar.gz
emacs-d7e034f65d111cafed38cd111cfd69c230a8ff0d.zip
Change Quail package name to "ethiopic".
(ethio-toggle-punctuation): Give "ethiopic" to quail-defrule.
-rw-r--r--leim/quail/ethiopic.el6
1 files 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."
93 '(?. [".."] ["..."] ?, [",,"] ?\; [";;"] ?: ["::"] [":::"] ?* ["**"]) 93 '(?. [".."] ["..."] ?, [",,"] ?\; [";;"] ?: ["::"] [":::"] ?* ["**"])
94 '(?$(3$i(B ?$(3%u(B ?. ?$(3$j(B ?, ?$(3$k(B ?\; ?$(3$h(B ?$(3$i(B ?: ?* ?$(3$o(B)))) 94 '(?$(3$i(B ?$(3%u(B ?. ?$(3$j(B ?, ?$(3$k(B ?\; ?$(3$h(B ?$(3$i(B ?: ?* ?$(3$o(B))))
95 (while keys 95 (while keys
96 (quail-defrule (car keys) (car puncs) "quail-ethio") 96 (quail-defrule (car keys) (car puncs) "ethiopic")
97 (setq keys (cdr keys) 97 (setq keys (cdr keys)
98 puncs (cdr puncs))) 98 puncs (cdr puncs)))
99 (force-mode-line-update))) 99 (force-mode-line-update)))
@@ -123,7 +123,7 @@ mark."
123 (error "")))) 123 (error ""))))
124 124
125;; 125;;
126;; The package "quail-ethio" 126;; The package "ethiopic"
127;; 127;;
128 128
129(quail-define-package 129(quail-define-package
@@ -1099,6 +1099,6 @@ C-' or ethio-gemination
1099 (lambda nil 1099 (lambda nil
1100 (quail-defrule "a" 1100 (quail-defrule "a"
1101 (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B) 1101 (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B)
1102 "quail-ethio"))) 1102 "ethiopic")))
1103 1103
1104;;; quail/ethiopic.el ends here 1104;;; quail/ethiopic.el ends here