From xemacs-m  Tue Feb 11 17:40:45 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 RAA26198
	for <xemacs-beta@xemacs.org>; Tue, 11 Feb 1997 17:39:31 -0600 (CST)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id PAA15105;
	Tue, 11 Feb 1997 15:50:46 -0800
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: PNG images, has anyone seen one in XEmacs?
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: Steven L Baur <steve@miranova.com>
Mime-Version: 1.0 (generated by tm-edit 7.103)
Content-Type: text/plain; charset=US-ASCII
Date: 11 Feb 1997 15:50:45 -0800
Message-ID: <m2g1z2zyui.fsf@altair.xemacs.org>
Lines: 42
X-Mailer: Gnus v5.4.12/XEmacs 20.1

We've had a long discussion in the recent past about libpng support
not being properly autodetected.  Now that libpng support appears to
be detected there's another problem ...

My question is this, has anyone ever seen a PNG image in XEmacs?  As
near as I can tell the support is 100% broken.

The only PNG image I have is `pngtest.png' included with libpng in
libgr-2.0.11.  Anyone know of a source of other examples?

If you're interested in looking at this, at least apply this patch to
have a prayer of being able to import a PNG image.  [This patch also
fixes GIF89a lossage].

Index: glyphs.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-19.15/lisp/prim/glyphs.el,v
retrieving revision 1.3
diff -u -r1.3 glyphs.el
--- glyphs.el	1997/02/02 05:06:04	1.3
+++ glyphs.el	1997/02/11 17:40:47
@@ -599,13 +599,15 @@
        ,@(if (featurep 'xpm) '(("^/\\* XPM \\*/" [xpm :data nil] 2)))
        ,@(if (featurep 'xface) '(("^X-Face:" [xface :data nil] 2)))
        ,@(if (featurep 'gif) '(("\.gif$" [gif :file nil] 2)))
-       ,@(if (featurep 'gif) '(("^GIF87" [gif :data nil] 2)))
+       ,@(if (featurep 'gif) '(("^GIF8[79]" [gif :data nil] 2)))
        ,@(if (featurep 'jpeg) '(("\.jpeg$" [jpeg :file nil] 2)))
        ,@(if (featurep 'jpeg) '(("\.jpg$" [jpeg :file nil] 2)))
        ;; all of the JFIF-format JPEG's that I've seen begin with
        ;; the following.  I have no idea if this is standard.
        ,@(if (featurep 'jpeg) '(("^\377\330\340\000\020JFIF"
 				 [jpeg :data nil] 2)))
+       ,@(if (featurep 'png) '(("\.png$" [png :file nil] 2)))
+       ,@(if (featurep 'png) '(("^\211PNG" [png :data nil] 2)))
        ("" [autodetect :data nil] 2))))
   ;; #### this should really be formatted-string, not string but we
   ;; don't have it implemented yet

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

