From xemacs-m  Sun Jun 15 05:37:38 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id FAA12841
	for <xemacs-beta@xemacs.org>; Sun, 15 Jun 1997 05:37:37 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id DAA11144;
	Sun, 15 Jun 1997 03:37:40 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: 20.2-b7 ok on FreeBSD 2.2.2 (but psgml-mode has problem)
References: <ryspvtop45x.fsf@skywalk.jsys.co.jp>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Ebola Vaccinations R Us <steve@xemacs.org>
In-Reply-To: Kazuyuki IENAGA's message of "15 Jun 1997 19:10:50 +0900"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 15 Jun 1997 03:37:39 -0700
Message-ID: <m2rae440ek.fsf@altair.xemacs.org>
Lines: 47
X-Mailer: Gnus v5.4.56/XEmacs 20.3(beta8) - "Copenhagen"

> Comparison between integer and character is constant nil (?\- and 0)
>    [sgml-parse-comment, sgml-skip-cs, sgml-parse-catalog-buffer, sgml-cache-catalog, sgml-catalog-lookup, sgml-external-file, sgml-push-to-entity, sgml-setup-doctype, sgml-do-doctype, sgml-parse-markup-declaration, sgml-parse-prolog, sgml-load-doctype, sgml-need-dtd, sgml-parse-to, sgml-find-element-of, byte-code, sgml-indent-line, <compiled-function from "psgml.elc">, call-interactively]

Ebola!

O.K.  If this patch doesn't clear up the infection, could you please
send me an html sample that reproduces the problem?  Thanks.

1997-06-15  Steven L Baur  <steve@altair.xemacs.org>

	* psgml-parse.el (sgml-parse-chars): De-ebolify.
	(sgml-read-peek): Use char-after not following-char.

Index: lisp/psgml/psgml-parse.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/psgml/psgml-parse.el,v
retrieving revision 1.6
diff -u -r1.6 psgml-parse.el
--- psgml-parse.el	1997/06/14 20:31:36	1.6
+++ psgml-parse.el	1997/06/15 10:33:06
@@ -1005,7 +1005,7 @@
     (sgml-read-octet)))
 
 (defsubst sgml-read-peek ()
-  (following-char))
+  (char-after (point)))
 
 (defun sgml-read-sexp ()
   (prog1
@@ -1463,11 +1463,11 @@
 (defmacro sgml-parse-chars (char1 char2 &optional char3)
   "Parse two or three chars; return nil if can't"
   (if (null char3)
-      (` (cond ((and (eq (, char1) (following-char))
+      (` (cond ((and (eq (, char1) (char-after (point)))
 		 (eq (, char2) (char-after (1+ (point)))))
 	    (forward-char 2)
 	    t)))
-    (` (cond ((and (eq (, char1) (following-char))
+    (` (cond ((and (eq (, char1) (char-after (point)))
 		 (eq (, char2) (char-after (1+ (point))))
 		 (eq (, char3) (char-after (1+ (1+ (point))))))
 	    (forward-char 3)

-- 
steve@calag.com baur
Unsolicited commercial e-mail will be billed at $250/message.

