diff options
Diffstat (limited to 'lisp/language/ethiopic.el')
| -rw-r--r-- | lisp/language/ethiopic.el | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el index fa99bf64a46..35b4f4d00e4 100644 --- a/lisp/language/ethiopic.el +++ b/lisp/language/ethiopic.el @@ -51,40 +51,6 @@ (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)) |