diff options
| author | Kenichi Handa | 1997-07-25 07:28:50 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-07-25 07:28:50 +0000 |
| commit | d7e034f65d111cafed38cd111cfd69c230a8ff0d (patch) | |
| tree | cbde9e42c6fe187e63904ba2974377657b72953c | |
| parent | 5ab5daada52deee23328438772b14b3f9c150a77 (diff) | |
| download | emacs-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.el | 6 |
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 |