--- honyaku.el.orig	Sun Dec 12 03:06:25 1999
+++ honyaku.el	Tue Apr 11 00:02:28 2000
@@ -26,6 +26,8 @@
 
 ;;; Change log:
 
+;;; 2000/04/11 V1.02a
+;;;          prefix key modified (by ysjj@unixuser.org)
 ;;; 1999/10/04 V1.02
 ;;;          sentence access method modified
 ;;; 1999/09/29 V1.01
@@ -37,7 +39,7 @@
 
 ;;; Last modified date: 1999/10/04
 
-(defvar honyaku-version "1.02"
+(defvar honyaku-version "1.02a"
   "Version number of Honyakudamashii client.")
 
 (defun honyaku-version ()
@@ -64,26 +66,31 @@
 (defconst honyaku-dictionary-buffer-name  "*honyaku-dictionary*"  "辞書バッファ名")
 
 
-(define-key global-map [f9]     'honyaku-translate-ej)
-(define-key global-map "\C-xye" 'honyaku-translate-ej)
+(defvar honyaku-prefix "\C-xy"
+  "*翻訳魂の機能を呼び出すための prefix キーストローク")
+(defvar honyaku-map nil
+  "*翻訳魂のためのキーマップ")
 
-(define-key global-map "\C-xyw" 'honyaku-word-translate-ej)
-(define-key global-map "\C-xys" 'honyaku-sentence-translate-ej)
-(define-key global-map "\C-xyp" 'honyaku-paragraph-translate-ej)
+(if honyaku-map nil
+  (setq honyaku-map (make-sparse-keymap))
+  (define-key global-map honyaku-prefix nil)
+  (define-key global-map honyaku-prefix honyaku-map)
 
-(define-key global-map [f10]    'honyaku-dic-word-ej)
-(define-key global-map "\C-xyn" 'honyaku-dic-word-ej)
+  (define-key honyaku-map "e" 'honyaku-translate-ej)
+  (define-key honyaku-map "w" 'honyaku-word-translate-ej)
+  (define-key honyaku-map "s" 'honyaku-sentence-translate-ej)
+  (define-key honyaku-map "p" 'honyaku-paragraph-translate-ej)
 
-(define-key global-map "\C-xyi" 'honyaku-dic-ej)
+  (define-key honyaku-map "n" 'honyaku-dic-word-ej)
 
-(define-key global-map [f11]    'honyaku-translate-je)
-(define-key global-map "\C-xyj" 'honyaku-translate-je)
+  (define-key honyaku-map "i" 'honyaku-dic-ej)
 
-(define-key global-map "\C-xyb" 'honyaku-sentence-translate-je)
-(define-key global-map "\C-xyd" 'honyaku-paragraph-translate-je)
+  (define-key honyaku-map "j" 'honyaku-translate-je)
 
-(define-key global-map [f12]    'honyaku-dic-je)
-(define-key global-map "\C-xym" 'honyaku-dic-je)
+  (define-key honyaku-map "b" 'honyaku-sentence-translate-je)
+  (define-key honyaku-map "d" 'honyaku-paragraph-translate-je)
+
+  (define-key honyaku-map "m" 'honyaku-dic-je))
 
 
 (defvar honyaku-server-list nil "*サーバホスト名のリスト")