From xemacs-m  Thu Aug 14 23:57:30 1997
Received: from sonyinet.sony.co.jp (sonyinet.sony.co.jp [202.238.80.17])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id XAA20053
	for <xemacs-beta@xemacs.org>; Thu, 14 Aug 1997 23:57:28 -0500 (CDT)
Received: by sonyinet.sony.co.jp (3.6Wbeta5-97080515) id NAA18192
	for <xemacs-beta@xemacs.org>; Fri, 15 Aug 1997 13:57:30 +0900 (JST)
Received: from sonygw.sony.co.jp(43.0.1.249) by sonyinet.sony.co.jp via smap (V2.0)
	id xma018187; Fri, 15 Aug 97 13:57:24 +0900
Received: from shigw.shi.sony.co.jp (shigw [43.1.179.252]) by sonygw.sony.co.jp (8.6.12+2.4W/3.4W-97080410) with ESMTP id NAA17104 for <xemacs-beta@xemacs.org>; Fri, 15 Aug 1997 13:57:08 +0900
Received: from gagw.ga.sony.co.jp (gabrg [43.1.185.224]) by shigw.shi.sony.co.jp (8.6.12+2.4W/3.4W-96052711) with SMTP
	id NAA12400 for <xemacs-beta@xemacs.org>; Fri, 15 Aug 1997 13:57:07 +0900
Received: from beer.ga.sony.co.jp by gagw.ga.sony.co.jp (4.2/6.4J.6)
	id AA14381; Fri, 15 Aug 97 13:56:57 JST
Received: by beer.ga.sony.co.jp (4.2/6.4J.6)
	id AA19182; Fri, 15 Aug 97 13:56:56 JST
To: xemacs-beta@xemacs.org
Subject: [patch2] egg.el
From: Katsumi Yamaoka <yamaoka@ga.sony.co.jp>
Organization: The Katsumi Yamaoka Fan Club
References: <28yb69io0l.fsf@ganews.ga.sony.co.jp>
Mime-Version: 1.0 (generated by SEMI MIME-Edit 0.86 "Naka-Tsurugi")
Content-Type: multipart/mixed;
 boundary="Multipart_Fri_Aug_15_13:57:04_1997-1"
Content-Transfer-Encoding: 7bit
Date: 15 Aug 1997 13:57:04 +0900
Message-Id: <28hgcsgi1r.fsf_-_@ganews.ga.sony.co.jp>
Lines: 46
X-Mailer: Gnus v5.4.64 + SEMI patch (r2.1)/XEmacs 20.3(beta17) - "Bucharest"
X-Info: ftp://ftp.jqu.com/pub/yamaoka/x-pgp-sig-1.2.8.tar.gz
X-Pgp-Sig: 2.6.3ia Subject,Message-ID,Date,From,X-Mailer,X-Face
	iQBVAwUBM/Phpkig4LAIggqdAQHY+QH8CnHyxwDuwS7RjbIFWZ2Ef9m57DP7gxVZ
	xliWm/4EkymcC14GPpLLd28T1W5iD9Wvt8GzvAXSgiPYtBv6xwCH9A==
	=i5cM
X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk
 B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw=
 L&i*6&(

--Multipart_Fri_Aug_15_13:57:04_1997-1
Content-Type: text/plain; charset=US-ASCII

 egg-read-event(), which is one of the functions of egg.el, returns
for example `space' events for the inputs of space key and nil for C-\.
So we can't input zenkaku space by "Z"+space or "Q"+space,  nor execute
fence-toggle-egg-mode(), niether.
 This is a patch for the problem.

--Multipart_Fri_Aug_15_13:57:04_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="egg.el.patch2"
Content-Transfer-Encoding: 7bit

--- lisp/egg/egg.el.orig	Sun Aug 10 13:39:59 1997
+++ lisp/egg/egg.el	Fri Aug 15 11:31:06 1997
@@ -403,13 +403,18 @@
   "FSFmacs event emulator that shoves non key events into
 unread-command-events to facilitate translation from Mule-2.3"
   (let ((event (make-event))
-	(ch nil))
+	ch key)
     (next-command-event event)
+    (setq key (event-key event))
     (if (key-press-event-p event)
 	(if (eq 0 (event-modifier-bits event))
-	    (setq ch (event-key event))
+	    (setq ch (or (event-to-character event) key))
 	  (if (eq 1 (event-modifier-bits event))
-	      (setq ch (int-to-char (- (char-to-int (event-key event)) 96)))
+	      (setq ch
+		    (if (characterp key)
+			(or (int-to-char (- (char-to-int key) 96))
+			    (int-to-char (- (char-to-int key) 64)))
+		      (event-to-character event)))
 	    (setq unread-command-events (list event))))
       (setq unread-command-events (list event)))
     ch))

--Multipart_Fri_Aug_15_13:57:04_1997-1
Content-Type: text/plain; charset=US-ASCII

-- 
Katsumi Yamaoka <yamaoka@ga.sony.co.jp>

--Multipart_Fri_Aug_15_13:57:04_1997-1--

