[Mew-dist 05389] Re: egg on Emacs 19.34

[SAKAI Kiyotaka]

>> In article <19980706133140Z.kazu at example.com>, Kazu Yamamoto (山本和彦) <kazu at example.com> writes:

> Emacs 19.34 ベースの Mule 2.3 で「たまご」を使っている方は、以下のパッ
> チを試して下さい。ヘッダで日本語が入力できるようになるかもしれません。
> 試すときは、mew-use-overlay-keymap は t のままで、変更しないで下さいね。

> 環境がないので、僕は試していません。論理的な書き換えを施しただけです。
> menu-mode-map をどこで使っているのか分らないので、このパッチには自信が
> ありません。

変換モードに入ると、wnn-egg.el で定義されている henkan-mode-map を利用
しますので、以下のパッチも必要だと思います。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


===================================================================
RCS file: RCS/wnn-egg.el,v
retrieving revision 1.1
diff -u -r1.1 wnn-egg.el
--- wnn-egg.el	1998/07/06 03:04:28	1.1
+++ wnn-egg.el	1998/07/06 04:11:51
@@ -848,7 +848,6 @@
 		      (if (null (marker-position egg:*region-start*))
 			  (progn
 			    ;;;(setq egg:*global-map-backup* (current-global-map))
-			    (setq egg:*local-map-backup* (current-local-map))
 			    (and (boundp 'disable-undo) (setq disable-undo t))
 			    (delete-region start end)
 			    (goto-char start)
@@ -880,7 +879,6 @@
 		      (henkan-goto-bunsetu 0)
 		      ;;;(use-global-map henkan-mode-map)
 		      ;;;(use-local-map nil)
-		      (use-local-map henkan-mode-map)
 		      (run-hooks 'egg:henkan-start-hook)))))
 	    (setq finished t))
 	(or finished (setq disable-undo nil) (setq egg:henkan-mode-in-use nil)))))
@@ -1099,7 +1097,6 @@
   ;;;(use-global-map fence-mode-map)
   ;;;(use-local-map  nil)
   (setq egg:henkan-mode-in-use nil)
-  (use-local-map fence-mode-map)
   (egg:mode-line-display))
 
 (defun sai-henkan ()
@@ -1111,7 +1108,6 @@
 	 (setq egg:henkan-mode-in-use t)
 	 (mode-line-egg-mode-update (egg:msg-get 'henkan-mode-indicator))
 	 (goto-char egg:*sai-henkan-start*)
-	 (setq egg:*local-map-backup* (current-local-map))
 	 (and (boundp 'disable-undo) (setq disable-undo t))
 	 (delete-region egg:*sai-henkan-start* egg:*sai-henkan-end*)
 	 (goto-char egg:*sai-henkan-start*)
@@ -1124,7 +1120,6 @@
 	 (egg:henkan-face-on)
 	 (egg:bunsetu-face-on)
 	 (henkan-goto-bunsetu 0)
-	 (use-local-map henkan-mode-map)
 	 (setq finished t))
        (or finished (setq disable-undo nil) (setq egg:henkan-mode-in-use nil)))))
   )
@@ -1364,7 +1359,6 @@
   ;;;(use-global-map fence-mode-map)
   ;;;(use-local-map  nil)
   (setq egg:henkan-mode-in-use nil)
-  (use-local-map fence-mode-map)
   (egg:mode-line-display)
   )
 
@@ -1487,6 +1481,12 @@
 (define-key henkan-mode-map [kp-left] 'henkan-backward-bunsetu)
 (define-key henkan-mode-map [kp-down] 'henkan-next-kouho)
 (define-key henkan-mode-map [kp-up] 'henkan-previous-kouho)
+
+(or (assq 'egg:henkan-mode-in-use minor-mode-map-alist)
+    (setq minor-mode-map-alist
+          (cons (cons 'egg:henkan-mode-in-use henkan-mode-map)
+		minor-mode-map-alist)))
+
 
 (defun henkan-help-command ()
   "Display documentation for henkan-mode."