From xemacs-m  Thu Feb 13 09:01:25 1997
Received: from newman (root@newman.aventail.com [38.225.141.10])
	by xemacs.org (8.8.5/8.8.5) with SMTP id JAA29838
	for <xemacs-beta@xemacs.org>; Thu, 13 Feb 1997 09:01:22 -0600 (CST)
Received: from kramer.in.aventail.com.aventail.com (wmperry@kramer [192.168.1.12]) by newman (8.6.12/8.6.9) with SMTP id GAA08277; Thu, 13 Feb 1997 06:59:15 -0800
Date: Thu, 13 Feb 1997 06:59:15 -0800
Message-Id: <199702131459.GAA08277@newman>
From: "William M. Perry" <wmperry@aventail.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: =?ISO-2022-JP?B?GyRCPGkyLBsoQiAbJEJDTkknGyhC?= / MORIOKA Tomohiko <morioka@jaist.ac.jp>
Cc: Michael Harnois <mharnois@sbt.net>, xemacs-beta@xemacs.org
Subject: Re: PNG images, has anyone seen one in XEmacs? 
In-Reply-To: <199702130535.OAA09351@mikan.jaist.ac.jp>
References: <87bu9pl3kv.fsf@mharnois.workgroup.net>
	<199702130535.OAA09351@mikan.jaist.ac.jp>
Errors-to: wmperry@aventail.com
Reply-to: wmperry@aventail.com
X-Face: O~Rn;(l][/-o1sALg4A@xpE:9-"'IR[%;,,!m7</SYF`{vYQ(&RI1&EiH[FvT;J}@f!4kfz
 x_!Y#=y{Uuj9GvUi=cPuajQ(Z42R[wE@{G,sn$qGr5g/wnb*"*ktI+,CD}1Z'wxrM2ag-r0p5I6\nA
 [WJopW_J.WY;

MORIOKA Tomohiko writes:

>tm 7.104 uses images.el to normalize.  When tm-image calls
>`image-register-netpbm-utilities' as same as w3, so
>`image-register-netpbm-utilities' is called twice if tm and w3 are used.

  wow, someone else actually uses that package.  Amazing. :)

>I think it is better to initialize in images.el instead of calling
>`image-register-netpbm-utilities'.

  I cannot remember for the life of me why I did it the current way.
.Dumping?  I don't know.  Oh wait, not all people/packages might have
netpbm installed, and would want to register their own set of converters
without cluttering up the registry.  This patch fixes things though -
image-register-netpbm-utilities is now safe to call multiple times.

-Bill P.

*** images.el	1997/02/06 15:26:06	1.7
--- images.el	1997/02/13 15:04:51
***************
*** 167,173 ****
  (defun image-register-netpbm-utilities ()
    "Register all the netpbm utility packages converters."
    (interactive)
!   (if (image-converter-registered-p 'xpm 'gif)
        nil
      (image-register-converter 'pgm 'pbm "pgmtopbm")
      (image-register-converter 'ppm 'pgm "ppmtopgm")
--- 167,173 ----
  (defun image-register-netpbm-utilities ()
    "Register all the netpbm utility packages converters."
    (interactive)
!   (if (image-converter-registered-p 'pgm 'pbm)
        nil
      (image-register-converter 'pgm 'pbm "pgmtopbm")
      (image-register-converter 'ppm 'pgm "ppmtopgm")

