From: Kenichi Handa <handa@m17n.org>
Date: Sun, 3 Aug 1997 02:54:04 +0000 (+0000)
Subject: (setup-ethiopic-environment): Bind
X-Git-Tag: emacs-20.1~855
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4eba152358872fb754b7218f1b7573ad6af8c7ac;p=emacs.git

(setup-ethiopic-environment): Bind
correct commands in global-map, rmail-mode-map, and mail-mode-map.
Set default value of default-input-method.
---

diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index c97f6f98802..537f0cc1f9c 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -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)))
   )
 
 ;;