From xemacs-m  Sat Jun 14 03:05:07 1997
Received: from ALPHA8.CC.MONASH.EDU.AU (alpha8.cc.monash.edu.au [130.194.1.8])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id DAA25592
	for <xemacs-beta@xemacs.org>; Sat, 14 Jun 1997 03:05:04 -0500 (CDT)
Received: from goaway.cc.monash.edu.au ("port 2910"@goaway.cc.monash.edu.au)
 by vaxh.cc.monash.edu.au (PMDF V5.1-7 #20655)
 with ESMTP id <01IK2LGNR4IQ8ZF76E@vaxh.cc.monash.edu.au> for
 xemacs-beta@xemacs.org; Sat, 14 Jun 1997 18:04:57 +1000
Received: (ajc@localhost) by goaway.cc.monash.edu.au (8.8.5/8.6.4)
 id SAA17833; Sat, 14 Jun 1997 18:04:56 +1000 (EST)
Date: Sat, 14 Jun 1997 18:04:55 +1000
From: Andrew J Cosgriff <Andrew.Cosgriff@cc.monash.edu.au>
Subject: ebola in psgml-parse.el
To: XEmacs Beta Testers <xemacs-beta@xemacs.org>
Message-id: <ruipvtp7gpk.fsf@goaway.cc.monash.edu.au>
MIME-version: 1.0 (generated by tm-edit 7.108)
X-Mailer: Gnus v5.4.56/XEmacs 20.3(beta6)
Content-type: multipart/mixed; boundary="Multipart_Sat_Jun_14_18:04:55_1997-1"
Content-transfer-encoding: 7bit
X-Attribution: ajc
X-URI: <URL:http://www-personal.monash.edu.au/~ajc>
X-PGP-Key-ID: C7BD53F5
X-Face: 
 PBPJ+.AE`FBN4$}H<dIo+^`A-G%mJTXXP$^4bBox##5=oF{G\[:0|sNlr%~H1,>rwwEh<qq.dHRpu8ftJ\'14l]<x(nRD>J)x?-5$MQ%Z)svNR@Q\WG6[GDr,}a@8ULwGWBsk,Pqxm!Z<lnD(Skwwe$j+<0g6N6z}>-
X-Horoscope: This month your child will adjust your girdle.  Don't forget to
 have your life insurance spayed or neutered.  Your efforts at gossiping turn
 out to be quite worthwhile.  You'll once in a while be broke.
Lines: 49

--Multipart_Sat_Jun_14_18:04:55_1997-1
Content-Type: text/plain; charset=US-ASCII


Having forgotten most of the psgml stuff i learnt when I first grabbed 
it and read the info files, i saw someone mention C-c C-a to edit
attributes.   So I loaded up a file, went to something and hit C-C C-a 
and my screen filled with stuff like this -

Comparison between integer and character is constant nil (255 and ?\^B)
           [sgml-read-model, sgml-read-content, sgml-read-element,
           sgml-bdtd-merge, sgml-bdtd-read-dtd,
           sgml-try-merge-special-case, sgml-try-merge-compiled-dtd,
           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, sgml-find-attribute-element,
           <compiled-function from "psgml-edit.elc">, call-interactively]

Having peeked at some other vaccines, I came up with this patch which
makes it work.

Andrew (I love tty frames :)

--Multipart_Sat_Jun_14_18:04:55_1997-1
Content-Type: text/plain; type=patch; charset=US-ASCII
Content-Disposition: attachment; filename="psgml-parse.diff"
Content-Transfer-Encoding: 7bit

--- psgml-parse.el~	Sun Mar 16 14:05:41 1997
+++ psgml-parse.el	Sat Jun 14 18:01:04 1997
@@ -1035,7 +1035,7 @@
 	 (sgml-read-nodes (make-vector n nil)))
     (loop for i below n do (aset sgml-read-nodes i (sgml-make-state)))
     (loop for e across sgml-read-nodes do
-	  (cond ((eq 255 (sgml-read-peek))	; a and-node
+	  (cond ((eq (int-char 255) (sgml-read-peek))	; a and-node
 		 (sgml-read-octet)		; skip
 		 (setf (sgml-and-node-next e) (sgml-read-node-ref))
 		 (setf (sgml-and-node-dfas e) (sgml-read-model-seq)))

--Multipart_Sat_Jun_14_18:04:55_1997-1
Content-Type: text/plain; charset=US-ASCII

-- 
 - Andrew J. Cosgriff -        >> see X-headers >>       ajc@bing.wattle.id.au
             Wow!  Look!!  A stray meatball!!  Let's interview it!

--Multipart_Sat_Jun_14_18:04:55_1997-1--

