🚀 go-pugleaf

--Multipart_Mon_Aug_25_14:59:18_1997-1
Content-Type: text/plain; charset=ISO-2022-JP

XEmacs 20.3b18 $B$N(B egg $B$G(B toroku-region $B$,%(%i!<$r5/$3$9$N$GD4$Y$?$H$3(B
$B$m!"4X?t(B read-hiragana-string $B$NCf$G(B mode-line-egg-mode-update $B$KM?$((B
$B$k0z?t$,J8;zNs$K$J$C$F$$$J$$$N$,860x$N$h$&$G$7$?!#(B
$B$3$NItJ,$O(B Mule 2.3 $B$G$bF1$8$J$N$G$9$,!"(Bconcat $B$N;EMM$,0c$&$?$a$+F0$-(B
$B$^$9!#(B
$B0J2<$NJQ99$O@5$7$$$G$7$g$&$+(B?

--Multipart_Mon_Aug_25_14:59:18_1997-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="egg.el.diff"
Content-Transfer-Encoding: 7bit

diff -au7 lisp/egg/egg.el.orig lisp/egg/egg.el
--- lisp/egg/egg.el.orig	Sun Aug 17 12:23:51 1997
+++ lisp/egg/egg.el	Mon Aug 25 13:59:25 1997
@@ -2843,15 +2843,15 @@
 (defun read-hiragana-string (prompt &optional initial-input)
   (save-excursion
     (let ((minibuff (window-buffer (minibuffer-window))))
       (set-buffer minibuff)
       (setq egg:*input-mode* t
 	    egg:*mode-on*    t
 	    its:*current-map* (its:get-mode-map "roma-kana"))
-      (mode-line-egg-mode-update (its:get-mode-indicator its:*current-map*))))
+      (mode-line-egg-mode-update (its:get-mode-indicator "roma-kana"))))
   (read-from-minibuffer prompt initial-input
 		       egg:*minibuffer-local-hiragana-map*))
 
 (defun read-kanji-string (prompt &optional initial-input)
   (save-excursion
     (let ((minibuff (window-buffer (minibuffer-window))))
       (set-buffer minibuff)

--Multipart_Mon_Aug_25_14:59:18_1997-1
Content-Type: text/plain; charset=US-ASCII

-- 
Katsumi Yamaoka <yamaoka@ga.sony.co.jp>
MD dep., General Audio div., Personal A&V Products Company, Sony Corp.
PGP Public Key:
http://www.icat.or.jp/cgi-bin/pgpsearchkey.pl?op=get&search=0x08820A9D

--Multipart_Mon_Aug_25_14:59:18_1997-1--