From xemacs-m  Sun Aug 10 19:05:09 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 TAA18108
	for <xemacs-beta@xemacs.org>; Sun, 10 Aug 1997 19:05:04 -0500 (CDT)
Received: by sonyinet.sony.co.jp (3.6Wbeta5-97080515) id JAA18096
	for <xemacs-beta@xemacs.org>; Mon, 11 Aug 1997 09:04:56 +0900 (JST)
Received: from sonygw.sony.co.jp(43.0.1.249) by sonyinet.sony.co.jp via smap (V2.0)
	id xma017916; Mon, 11 Aug 97 09:04:06 +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 JAA20679 for <xemacs-beta@xemacs.org>; Mon, 11 Aug 1997 09:03:50 +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 JAA10445 for <xemacs-beta@xemacs.org>; Mon, 11 Aug 1997 09:03:49 +0900
Received: from beer.ga.sony.co.jp by gagw.ga.sony.co.jp (4.2/6.4J.6)
	id AA13586; Mon, 11 Aug 97 09:03:43 JST
Received: by beer.ga.sony.co.jp (4.2/6.4J.6)
	id AA07194; Mon, 11 Aug 97 09:03:43 JST
To: xemacs-beta@xemacs.org
Subject: [patch] egg.el
From: Katsumi Yamaoka <yamaoka@ga.sony.co.jp>
Organization: The Katsumi Yamaoka Fan Club
References: <m2k9huedtw.fsf@altair.xemacs.org>
Mime-Version: 1.0 (generated by SEMI MIME-Edit 0.86 "Naka-Tsurugi")
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Aug_11_09:03:54_1997-1"
Content-Transfer-Encoding: 7bit
Date: 11 Aug 1997 09:03:54 +0900
Message-Id: <28yb69io0l.fsf@ganews.ga.sony.co.jp>
Lines: 72
X-Mailer: Gnus v5.4.64 + SEMI patch (r2.1)/XEmacs 20.3(beta17) - "Bucharest"
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_Mon_Aug_11_09:03:54_1997-1
Content-Type: text/plain; charset=US-ASCII

zenkaku-region() does not work with ebola disease.

Signaling: (wrong-type-argument integerp ?A)
  make-char(#<charset japanese-jisx0208 "JIS X0208-1983 (Japanese
  Kanji)" 94x94 l2r cols=2 g0 final='B' reg=jisx0208.19\(83\|90\)
  0x20d> 38 ?A)
  (insert (make-char (find-charset ...) 38 ch))

Please apply this patch to lisp/egg/egg.el.

--Multipart_Mon_Aug_11_09:03:54_1997-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="egg.el.patch"
Content-Transfer-Encoding: 7bit

--- lisp/egg/egg.el~	Sun Aug 10 13:39:59 1997
+++ lisp/egg/egg.el	Mon Aug 11 07:43:04 1997
@@ -929,7 +929,7 @@
     (narrow-to-region start end)
     (goto-char (point-min))
     (while (re-search-forward "\\cS\\|\\cA\\|\\cK" (point-max) (point-max))
-      (let* ((ch (preceding-char))
+      (let* ((ch (char-before (point)))
 	     (ch1 (char-octet ch 0))
 	     (ch2 (char-octet ch 1)))
 	(cond ((= ch1 33) ;Symbols
@@ -1014,13 +1014,14 @@
     (narrow-to-region start end)
     (goto-char (point-min))
     (while (re-search-forward "[ -~]" (point-max) (point-max))
-      (let ((ch (preceding-char)))
+      (let ((ch (char-before (point))))
 	(if (and (<= ?  ch) (<= ch ?~))
 	    (progn
 	      (delete-char -1)
 	      (let ((zen (cdr (assq ch *zenkaku-alist*))))
 		(if zen (insert zen)
-		  (insert (make-char (find-charset 'japanese-jisx0208) 38 ch))))))))))
+		  (insert (make-char (find-charset 'japanese-jisx0208) 38
+				     (char-to-int ch)))))))))))
 
 (defun zenkaku-paragraph ()
   "zenkaku  paragraph at or after point."
@@ -1602,7 +1603,7 @@
 		  ch)
 	      nil))
 	nil)
-    (following-char)))
+    (char-after (point))))
 
 (defun its:read-char ()
   (if (= (point) its:*buff-e*)
@@ -1611,7 +1612,7 @@
 	(if its:*interactive*
 	    (egg-read-event)
 	  nil))
-    (let ((ch (following-char)))
+    (let ((ch (char-after (point))))
       (setq its:*char-from-buff* t)
       (delete-char 1)
       ch)))

--Multipart_Mon_Aug_11_09:03:54_1997-1
Content-Type: text/plain; charset=US-ASCII

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

--Multipart_Mon_Aug_11_09:03:54_1997-1--

