Commits

Anonymous committed 6bb39bc

henkan-katakana fix

Comments (0)

Files changed (4)

+1999-07-30  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* egg-wnn.el (henkan-mode-map): Rearrange meta prefix keys.
+	(henkan-mode-esc-map): Remove keymap.
+
+	* egg-sj3.el (henkan-mode-map): Rearrange meta prefix keys.
+	(henkan-mode-esc-map): Remove keymap.
+
 1999-07-26  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* egg-sj3-client.el (sj3-put-tanconv): Use `shift_jis' instead of
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.19
+VERSION = 1.20
 AUTHOR_VERSION =
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = egg-its
 
 
 (defvar henkan-mode-map (make-sparse-keymap))
-(defvar henkan-mode-esc-map (make-sparse-keymap))
 (set-keymap-default-binding henkan-mode-map 'undefined)
-(set-keymap-default-binding henkan-mode-esc-map 'undefined)
 
 (let ((ch 32))
   (while (< ch 127)
     (define-key henkan-mode-map (make-string 1 ch) 'henkan-kakutei-and-self-insert)
     (setq ch (1+ ch))))
 
-(condition-case ()
-    (define-key henkan-mode-map "\e" henkan-mode-esc-map)
-  (error nil))
-(define-key henkan-mode-map [escape] henkan-mode-esc-map)
-(define-key henkan-mode-esc-map "i" 'henkan-bunsetu-chijime)
-(define-key henkan-mode-esc-map "o" 'henkan-bunsetu-nobasi)
-(define-key henkan-mode-esc-map "s" 'henkan-select-kouho)
-(define-key henkan-mode-esc-map "h" 'henkan-hiragana)
-(define-key henkan-mode-esc-map "k" 'henkan-katakana)
-(define-key henkan-mode-esc-map "<" 'henkan-saishou-bunsetu)
-(define-key henkan-mode-esc-map ">" 'henkan-saichou-bunsetu)
+(define-key henkan-mode-map "\ei" 'henkan-bunsetu-chijime)
+(define-key henkan-mode-map "\eo" 'henkan-bunsetu-nobasi)
+(define-key henkan-mode-map "\es" 'henkan-select-kouho)
+(define-key henkan-mode-map "\eh" 'henkan-hiragana)
+(define-key henkan-mode-map "\ek" 'henkan-katakana)
+(define-key henkan-mode-map "\e<" 'henkan-saishou-bunsetu)
+(define-key henkan-mode-map "\e>" 'henkan-saichou-bunsetu)
 
 (define-key henkan-mode-map " "    'henkan-next-kouho)
 (define-key henkan-mode-map "\C-@" 'henkan-next-kouho)
   (henkan-kakutei))
 
 (defvar henkan-mode-map (make-sparse-keymap))
-(defvar henkan-mode-esc-map (make-sparse-keymap))
 (set-keymap-default-binding henkan-mode-map 'undefined)
-(set-keymap-default-binding henkan-mode-esc-map 'undefined)
 
 (let ((ch 32))
   (while (< ch 127)
     (define-key henkan-mode-map (char-to-string ch) 'henkan-kakutei-and-self-insert)
     (setq ch (1+ ch))))
 
-(condition-case ()
-    (define-key henkan-mode-map "\e" henkan-mode-esc-map)
-  (error nil))
-(define-key henkan-mode-map [escape] henkan-mode-esc-map)
-(define-key henkan-mode-esc-map "i" 'henkan-bunsetu-chijime-sho)
-(define-key henkan-mode-esc-map "o" 'henkan-bunsetu-nobasi-sho)
-(define-key henkan-mode-esc-map "s" 'henkan-select-kouho-dai)
-(define-key henkan-mode-esc-map "h" 'henkan-hiragana)
-(define-key henkan-mode-esc-map "k" 'henkan-katakana)
-(define-key henkan-mode-esc-map "z" 'henkan-select-kouho-sho)
-(define-key henkan-mode-esc-map "<" 'henkan-saishou-bunsetu)
-(define-key henkan-mode-esc-map ">" 'henkan-saichou-bunsetu)
+(define-key henkan-mode-map "\ei" 'henkan-bunsetu-chijime-sho)
+(define-key henkan-mode-map "\eo" 'henkan-bunsetu-nobasi-sho)
+(define-key henkan-mode-map "\es" 'henkan-select-kouho-dai)
+(define-key henkan-mode-map "\eh" 'henkan-hiragana)
+(define-key henkan-mode-map "\ek" 'henkan-katakana)
+(define-key henkan-mode-map "\ez" 'henkan-select-kouho-sho)
+(define-key henkan-mode-map "\e<" 'henkan-saishou-bunsetu)
+(define-key henkan-mode-map "\e>" 'henkan-saichou-bunsetu)
 
 ;(define-key henkan-mode-map " "    'henkan-next-kouho-dai)
 					; 92.9.8 by T.Shingu