[Mew-dist 05388] egg on Emacs 19.34

[Kazu Yamamoto ( 山本和彦 )]

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

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

--かず

-------------- next part --------------
*** egg.el.orig	Mon Jul  6 13:23:48 1998
--- egg.el	Mon Jul  6 13:27:44 1998
***************
*** 2471,2479 ****
  (make-variable-buffer-local 'egg:*region-end*)
  (set-default 'egg:*region-start* nil)
  (set-default 'egg:*region-end* nil)
- (defvar egg:*global-map-backup* nil)
- (defvar egg:*local-map-backup*  nil)
- 
  
  ;;;
  ;;; (defvar disable-undo nil "*Compatibility for Nemacs")
--- 2471,2476 ----
***************
*** 2603,2610 ****
    (and (boundp 'disable-undo) (setq disable-undo t))
    (setq egg:*in-fence-mode* t)
    (egg:mode-line-display)
-   ;;;(setq egg:*global-map-backup* (current-global-map))
-   (setq egg:*local-map-backup*  (current-local-map))
    ;;;(use-global-map fence-mode-map)
    ;;;(use-local-map nil)
    (use-local-map fence-mode-map)
--- 2600,2605 ----
***************
*** 2722,2729 ****
  correspoding to character position.")
  
  (defun egg:quit-egg-mode ()
-   ;;;(use-global-map egg:*global-map-backup*)
-   (use-local-map egg:*local-map-backup*)
    (setq egg:*in-fence-mode* nil)
    (egg:mode-line-display)
    (if overwrite-mode
--- 2717,2722 ----
***************
*** 2819,2824 ****
--- 2812,2821 ----
  (define-key fence-mode-map [kp-right] 'fence-forward-char)
  (define-key fence-mode-map [kp-left] 'fence-backward-char)
  
+ (or (assq 'egg:*in-fence-mode* minor-mode-map-alist)
+     (setq minor-mode-map-alist
+           (cons (cons 'egg:*in-fence-mode* fence-mode-map)
+ 		minor-mode-map-alist)))
  
  ;;;----------------------------------------------------------------------
  ;;;