comparison leim/quail/ethiopic.el @ 19650:2ef4b730776d

("ethiopic"): Doc-sring fixed. Change the arg TRANSLATION-KEYS. (quail-mode-map): Change binding for ethio-insert-ethio-space. (quail-mode-hook): Check the current Quail package name.

19649:b2bf3c43c86a

 '("$(3$O#U!.(B "
   (ethio-prefer-ascii-space "_" "$(3$h(B")
   (ethio-prefer-ascii-punctuation "." "$(3$i(B"))
 t "  KEYS AND FUNCTIONS

[F2] 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 `$(3$h(B'
  (Ethiopic colon-like word separator).  Even in the `$(3$h(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'
  Toggles ASCII punctuations and Ethiopic punctuations for keyboard input.
  The current mode is indicated by `.' (ASCII) or `$(3$i(B' (Ethiopic).

C-^ or `M-x ethio-insert-ethio-space
  Always insert an Ethiopic word separator `$(3$h(B'.  With a prefix number,
  insert that many word separators.

C-' or ethio-gemination
  Compose the character before the point with the Ethiopic gemination mark.
  If the characater is already composed, decompose it and remove the
  gemination mark."

 '(([f2] . ethio-toggle-space)
   ([f3] . ethio-toggle-punctuation)
   (" " . ethio-insert-space)
   ([?\C-^] . ethio-insert-ethio-space)
   ([?\C-'] . ethio-gemination))
 t t)

;; These keys should work even if translation region is not active.
(define-key quail-mode-map [f2] 'ethio-toggle-space)
(define-key quail-mode-map [f3] 'ethio-toggle-punctuation)
(define-key quail-mode-map " "  'ethio-insert-space)
(define-key quail-mode-map [?\C-^] 'ethio-insert-ethio-space)
(define-key quail-mode-map [?\C-'] 'ethio-gemination)
(define-key quail-mode-map [?\S- ] 'ethio-insert-ethio-space)

(quail-define-rules
 ("he" ?$(3!!(B)
 ("hu" ?$(3!"(B)
 ("hi" ?$(3!#(B)

)

;; The translation of `a' depends on the language (Tigrigna or Amharic). 
(add-hook 'quail-mode-hook
	  (lambda nil
	    (quail-defrule "a"
			   (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B)
			   "ethiopic")))

;;; quail/ethiopic.el ends here

19650:2ef4b730776d

 '("$(3$O#U!.(B "
   (ethio-prefer-ascii-space "_" "$(3$h(B")
   (ethio-prefer-ascii-punctuation "." "$(3$i(B"))
 t "  KEYS AND FUNCTIONS

F2 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 `$(3$h(B'
  (Ethiopic colon-like word separator).  Even in the `$(3$h(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'
  Toggles ASCII punctuations and Ethiopic punctuations for keyboard input.
  The current mode is indicated by `.' (ASCII) or `$(3$i(B' (Ethiopic).

S-SPC or `M-x ethio-insert-ethio-space'
  Always insert an Ethiopic word separator `$(3$h(B'.  With a prefix number,
  insert that many word separators.

C-' or `M-x ethio-gemination'
  Compose the character before the point with the Ethiopic gemination mark.
  If the characater is already composed, decompose it and remove the
  gemination mark."

 '(([f2] . ethio-toggle-space)
   ([f3] . ethio-toggle-punctuation)
   (" " . ethio-insert-space)
   ([?\S- ] . ethio-insert-ethio-space)
   ([?\C-'] . ethio-gemination))
 t t)

;; These keys should work even if translation region is not active.
(define-key quail-mode-map [f2] 'ethio-toggle-space)
(define-key quail-mode-map [f3] 'ethio-toggle-punctuation)
(define-key quail-mode-map " "  'ethio-insert-space)
(define-key quail-mode-map [?\S- ] 'ethio-insert-ethio-space)
(define-key quail-mode-map [?\C-'] 'ethio-gemination)

(quail-define-rules
 ("he" ?$(3!!(B)
 ("hu" ?$(3!"(B)
 ("hi" ?$(3!#(B)

)

;; The translation of `a' depends on the language (Tigrigna or Amharic). 
(add-hook 'quail-mode-hook
	  (lambda nil
	    (if (string= (quail-name) "ethiopic")
		(quail-defrule "a"
			       (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B)
			       "ethiopic"))))

;;; quail/ethiopic.el ends here