comparison lisp/language/ethiopic.el @ 17993:73869115ae0a

Most of setup-LANGUAGE-environment functions are moved form LANGUAGE.el to LANG-util.el. These functions now at first call setup-english-environment to reset various values to the defaults.

17992:191bef5a0922

      (cons (cons "ethiopic" ccl-encode-ethio-font) font-ccl-encoder-alist))

(register-input-method
 "Ethiopic" '("quail-ethio" quail-use-package "quail/ethiopic"))

(defun setup-ethiopic-environment ()
  "Setup multilingual environment for Ethiopic."
  (interactive)
  (setq primary-language "Ethiopic")

  (setq default-input-method '("Ethiopic" . "quail-ethio"))

  ;;
  ;;  key bindings
  ;;
  (define-key global-map [f4] 'sera-to-fidel-buffer)
  (define-key global-map [S-f4] 'sera-to-fidel-region)
  (define-key global-map [C-f4] 'sera-to-fidel-marker)
  (define-key global-map [f5] 'fidel-to-sera-buffer)
  (define-key global-map [S-f5] 'fidel-to-sera-region)
  (define-key global-map [C-f5] 'fidel-to-sera-marker)
  (define-key global-map [f6] 'ethio-modify-vowel)
  (define-key global-map [f7] 'ethio-replace-space)
  (define-key global-map [f8] 'ethio-input-special-character)
  (define-key global-map [S-f2] 'ethio-replace-space) ; as requested

  (add-hook
   'rmail-mode-hook
   '(lambda ()
      (define-key rmail-mode-map [C-f4] 'sera-to-fidel-mail)
      (define-key rmail-mode-map [C-f5] 'fidel-to-sera-mail)))

  (add-hook
   'mail-mode-hook
   '(lambda ()
      (define-key mail-mode-map [C-f4] 'sera-to-fidel-mail)
      (define-key mail-mode-map [C-f5] 'fidel-to-sera-mail)))
  )

(set-language-info-alist
 "Ethiopic" '((setup-function . setup-ethiopic-environment)
	      (charset . (ethiopic))
	      (sample-text . "$(3$O#U!.(B")
	      (documentation . t)))

17993:73869115ae0a

      (cons (cons "ethiopic" ccl-encode-ethio-font) font-ccl-encoder-alist))

(register-input-method
 "Ethiopic" '("quail-ethio" quail-use-package "quail/ethiopic"))

(set-language-info-alist
 "Ethiopic" '((setup-function . setup-ethiopic-environment)
	      (charset . (ethiopic))
	      (sample-text . "$(3$O#U!.(B")
	      (documentation . t)))