Mercurial > emacs
changeset 19091:54b336a17fd1
(setup-ethiopic-environment): Bind
correct commands in global-map, rmail-mode-map, and mail-mode-map.
Set default value of default-input-method.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sun, 03 Aug 1997 02:54:04 +0000 |
| parents | 7d36a4bbe75e |
| children | 6835f9c00ff5 |
| files | lisp/language/ethio-util.el |
| diffstat | 1 files changed, 11 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/ethio-util.el Sun Aug 03 02:54:04 1997 +0000 +++ b/lisp/language/ethio-util.el Sun Aug 03 02:54:04 1997 +0000 @@ -34,16 +34,17 @@ (setq primary-language "Ethiopic") (setq default-input-method "ethiopic") + (setq-default default-input-method "ethiopic") ;; ;; 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 [f4] 'ethio-sera-to-fidel-buffer) + (define-key global-map [S-f4] 'ethio-sera-to-fidel-region) + (define-key global-map [C-f4] 'ethio-sera-to-fidel-marker) + (define-key global-map [f5] 'ethio-fidel-to-sera-buffer) + (define-key global-map [S-f5] 'ethio-fidel-to-sera-region) + (define-key global-map [C-f5] 'ethio-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) @@ -52,14 +53,14 @@ (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))) + (define-key rmail-mode-map [C-f4] 'ethio-sera-to-fidel-mail) + (define-key rmail-mode-map [C-f5] 'ethio-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))) + (define-key mail-mode-map [C-f4] 'ethio-sera-to-fidel-mail) + (define-key mail-mode-map [C-f5] 'ethio-fidel-to-sera-mail))) ) ;;