From xemacs-m  Mon Jun 30 18:24:17 1997
Received: from spline.la.asu.edu (spline.la.asu.edu [129.219.44.112])
	by xemacs.org (8.8.5/8.8.5) with SMTP id SAA29490
	for <xemacs-beta@xemacs.org>; Mon, 30 Jun 1997 18:24:16 -0500 (CDT)
Received: (from jj@localhost) by spline.la.asu.edu (8.6.9/8.6.9) id QAA03695; Mon, 30 Jun 1997 16:16:48 -0700
Date: Mon, 30 Jun 1997 16:16:48 -0700
Message-Id: <199706302316.QAA03695@spline.la.asu.edu>
From: John Jones <jj@asu.edu>
To: xemacs-beta@xemacs.org
Subject: ebola warnings from html/psgml
Reply-to: jj@asu.edu
X-Face: 0Bu*)'knxca;nS9WA$T\|rEi"Z?/ww1lLYQ^lCpPRd@#L|0l:\M0<,,c!!7f(,^ZtSVN\N4
 a,R7VO!lLi=eji!}jOM_/yYeM*zkS+"Se)Z1,7=Cyj\xHo%.K|9$t/Vxx-?sue57C'w9Q=W@^?my+]
 Y/.tnckc;#<18}n(",?A#V7zA`]K>qf7jF[Al&3a^T[3H;{/N!EPb</zmr{AH7T!aZ\+!V!c$&H3F_
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII


While in HTML mode and trying to indent a line, XEmacs produced:

Comparison between integer and character is constant nil (?\- and 0)
   [eq, and, if, sgml-is-delim, sgml-parse-delim, if, sgml-parse-comment, or, while, sgml-skip-cs, while, let*, catch, cl-block-wrapper, block, loop, sgml-parse-catalog-buffer, funcall, setq, let, if, let, and, sgml-cache-catalog, let, setq, not, setq, progn, and, while, let*]

Comparison between integer and character is constant nil (?\- and 0)
   [eq, and, if, sgml-is-delim, sgml-parse-delim, if, sgml-parse-comment, or, while, sgml-skip-cs, progn, while, let, (lambda nil (let (new type ents from to name val) (while (progn (sgml-skip-cs) (setq type (sgml-parse-name))) (setq type (intern (downcase type))) (setq ents nil from nil) (sgml-skip-cs) (cond ((eq type (quote public)) (setq from (sgml-canonize-pubid (sgml-check-minimum-literal)))) ((eq type (quote file)) (setq from (expand-file-name (sgml-check-cat-literal))))) (cond ((null from) (error "Syntax error in ECAT: %s" file)) (t (sgml-skip-cs) (when (sgml-parse-char ?\[) (while (progn (sgml-skip-cs) (setq name (sgml-parse-name t))) (sgml-skip-cs) (setq val (sgml-check-literal)) (push (cons name val) ents)) (sgml-check-char ?\]) (sgml-skip-cs)) (setq to (expand-file-name (sgml-check-cat-literal))) (push (cons type (cons from (cons to ents))) new)))) (nreverse new))), funcall, setq, let, if, let, and, sgml-cache-catalog, sgml-load-ecat, let*, catch, cl-block-wrapper!
 , block, loop, setq, not, setq, progn, and] 
 

                                 John Jones
                                 jj@asu.edu

