comparison leim/quail/ethiopic.el @ 18965:7b3efca4f455

Change Quail package name to "ethiopic". (ethio-toggle-punctuation): Give "ethiopic" to quail-defrule.

18964:10af35406220

	 (puncs
	  (if ethio-prefer-ascii-punctuation
	      '(?. [".."] ["..."] ?, [",,"] ?\; [";;"] ?: ["::"] [":::"] ?* ["**"])
	    '(?$(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")
      (setq keys (cdr keys)
	    puncs (cdr puncs)))
    (force-mode-line-update)))

;;

    (delete-backward-char 1))
   (t
    (error ""))))
		
;;
;; The package "quail-ethio"
;;

(quail-define-package
 "ethiopic" "Ethiopic"
 '("$(3$O#U!.(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)
			   "quail-ethio")))

;;; quail/ethiopic.el ends here

18965:7b3efca4f455

	 (puncs
	  (if ethio-prefer-ascii-punctuation
	      '(?. [".."] ["..."] ?, [",,"] ?\; [";;"] ?: ["::"] [":::"] ?* ["**"])
	    '(?$(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) "ethiopic")
      (setq keys (cdr keys)
	    puncs (cdr puncs)))
    (force-mode-line-update)))

;;

    (delete-backward-char 1))
   (t
    (error ""))))
		
;;
;; The package "ethiopic"
;;

(quail-define-package
 "ethiopic" "Ethiopic"
 '("$(3$O#U!.(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