mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

Change Quail package name to "ethiopic".

Browse Source 
(ethio-toggle-punctuation): Give "ethiopic" to quail-defrule.
This commit is contained in:
Kenichi Handa 1997-07-25 07:28:50 +00:00
parent 5ab5daada5
commit d7e034f65d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
leim/quail/ethiopic.el
View File

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