-;; quail/ethiopic.el --- Quail package for inputting Ethiopic characters
+;;; ethiopic.el --- Quail package for inputting Ethiopic characters -*-coding: iso-2022-7bit;-*-
;; Copyright (C) 1997, 1998 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp>
+;;; Commentary:
+
;;; Code:
(require 'quail)
(require 'ethio-util)
-
+
;;
;; The package "ethiopic"
;;
'("\e$(3$Q#U!.\e(B "
(ethio-prefer-ascii-space "_" "\e$(3$h\e(B")
(ethio-prefer-ascii-punctuation "." "\e$(3$i\e(B"))
- t " QUAIL PACKAGE FOR ETHIOPIC (TIGRIGNA AND AMHARIC)
-
-When you activate this package, Ethio minor mode is also turned on.
+ t " Quail package for Ethiopic (Tigrigna and Amharic)
- KEYS AND FUNCTIONS
+When you are in Ethiopic language environment, the following special
+keys are available.
-F2 or `M-x ethio-toggle-space'
+C-F9 or `M-x ethio-toggle-space'
Toggles space characters for keyboard input. The current mode is
indicated in mode-line, whether by `_' (ASCII space) or `\e$(3$h\e(B'
(Ethiopic colon-like word separator). Even in the `\e$(3$h\e(B' mode, an
ASCII space is inserted if the point is preceded by `an Ethiopic
punctuation followed by zero or more ASCII spaces'.
-F3 or `M-x ethio-toggle-punctuation'
+S-F5 or `M-x ethio-toggle-punctuation'
Toggles ASCII punctuations and Ethiopic punctuations for keyboard input.
The current mode is indicated by `.' (ASCII) or `\e$(3$i\e(B' (Ethiopic).
;; The following keys should work as defined in lisp/language/ethio-util,
;; even during the translation.
- '(([f2] . quail-execute-non-quail-command)
- ([f3] . quail-execute-non-quail-command)
+ '(([C-f9] . quail-execute-non-quail-command)
+ ([S-f5] . quail-execute-non-quail-command)
(" " . quail-execute-non-quail-command)
([?\S- ] . quail-execute-non-quail-command)
([?\C-'] . quail-execute-non-quail-command))
("qqee" ?\e$(3%-\e(B)
("qq" ?\e$(3%.\e(B)
("qqo" ?\e$(3%/\e(B)
-
+
("Qe" ?\e$(3!q\e(B)
("Qu" ?\e$(3!r\e(B)
("Qi" ?\e$(3!s\e(B)
("NWee" ["\e$(3"`%q\e(B"])
("NW'" ["\e$(3"`%r\e(B"])
- ("e" ?\e$(3"c\e(B)
+ ; ("e" ?\e$(3"c\e(B) ; old style
("u" ?\e$(3"d\e(B)
("U" ?\e$(3"d\e(B)
("i" ?\e$(3"e\e(B)
("a" ?\e$(3"f\e(B)
("A" ?\e$(3"f\e(B)
("E" ?\e$(3"g\e(B)
- ; ("ee" ?\e$(3"g\e(B) ; Alef-E is rare vs Aynu-e, so ee = Aynu-e
+ ; ("ee" ?\e$(3"g\e(B) ; Alef-E is rare vs Aynu-I, so ee = Aynu-I
("I" ?\e$(3"h\e(B)
- ; ("e" ?\e$(3"h\e(B) ; some people prefer this. Which is fine but
- ; then how is Alef-e reached in Tigirgna mode
- ; even though it would be rare?
+ ("e" ?\e$(3"h\e(B) ; This is the premise to "new style" for vowels
+
("o" ?\e$(3"i\e(B)
("O" ?\e$(3"i\e(B)
("ea" ?\e$(3"j\e(B)
("o2" ?\e$(3#;\e(B)
("O2" ?\e$(3#;\e(B)
- ("ee" ?\e$(3#5\e(B)
- ; ("ae" ?\e$(3#5\e(B) ; Uncomment this if you want ee = Alef-E, comment above
+ ; ("ee" ?\e$(3#5\e(B) ; old style
+ ("ae" ?\e$(3#5\e(B) ; new style
+ ("aaa" ?\e$(3#5\e(B) ; new style
("uu" ?\e$(3#6\e(B)
("UU" ?\e$(3#6\e(B)
("ii" ?\e$(3#7\e(B)
("aa" ?\e$(3#8\e(B)
("AA" ?\e$(3#8\e(B)
("EE" ?\e$(3#9\e(B)
- ("eee" ?\e$(3#9\e(B)
("II" ?\e$(3#:\e(B)
+ ("ee" ?\e$(3#:\e(B) ; new style
("oo" ?\e$(3#;\e(B)
("OO" ?\e$(3#;\e(B)
(defun ethio-select-a-translation ()
;; The translation of `a' depends on the language
- ;; (either Tigrigna or Amharic).
+ ;; (either Tigrigna or Amharic).
(quail-defrule "a"
(if (ethio-prefer-amharic-p) ?\e$(3"c\e(B ?\e$(3"f\e(B)
"ethiopic"))
-;;; quail/ethiopic.el ends here
+;;; arch-tag: 66c182a8-d802-40fa-9c0d-d8ebe2f909d5
+;;; ethiopic.el ends here