From xemacs-m  Tue Mar 11 06:26:07 1997
Received: from lemcbed.lem.uni-karlsruhe.de (lemcbed.lem.uni-karlsruhe.de [129.13.103.197])
	by xemacs.org (8.8.5/8.8.5) with SMTP id GAA04140
	for <xemacs-beta@xemacs.org>; Tue, 11 Mar 1997 06:26:06 -0600 (CST)
Received: by lemcbed.lem.uni-karlsruhe.de; id AA31114; Tue, 11 Mar 1997 13:28:14 +0100
To: xemacs-beta@xemacs.org
Subject: Re: 20.1b6 display-time/scrollbar bug
References: <199703111044.KAA14079@cuckoo.hpl.hp.com> <x2bu8qpqi2.fsf@lemcbed.lem.uni-karlsruhe.de>
X-Face: Z[@OB)("ZvE?ev~1b+b!0ZUB.$%rh.9qE>dVf>q}Q/V?%d`J3gd!LR\aAZ8<Hwi]xTA(:*c;i3,?K?+rCy*^b$)a,}E?eo},}x2]5LlJysyoUOK"o[>K)'\Ulb7y-7*.If^;rHl['oa)n_M7E6w+LDKMs"G8_`c)uOS1^}.1|8Ill]7X68X-paeUOpBhz<F`B0?~^2Et~GYfw~/0]H]nx4~C_E/_mp#^7Ixc:
Reply-To: jens@lemming0.lem.uni-karlsruhe.de
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: multipart/mixed;
 boundary="Multipart_Tue_Mar_11_13:28:14_1997-1"
Content-Transfer-Encoding: 7bit
From: Jens Lautenbacher <jens@lemcbed.lem.uni-karlsruhe.de>
Date: 11 Mar 1997 13:28:14 +0100
In-Reply-To: Jens Lautenbacher's message of 11 Mar 1997 13:22:45 +0100
Message-Id: <x2afoapq8x.fsf@lemcbed.lem.uni-karlsruhe.de>
Lines: 44
X-Mailer: Gnus v5.4.16/XEmacs 19.15

--Multipart_Tue_Mar_11_13:28:14_1997-1
Content-Type: text/plain; charset=US-ASCII

Jens Lautenbacher <jens@lemcbed.lem.uni-karlsruhe.de> writes:

> Andy Norman <ange@hplb.hpl.hp.com> writes:
> 
> > Call if you need more info.
> 
> what gives (featurep 'xpm) ? It seems from your setup that it should
> give nil. But I think I have protected the code by this everywhere...
> 
>      JTL

Oops. Actually I didn't. Try this (untested, as I have no XEmacs
without xpm, but it should work for now.)


--Multipart_Tue_Mar_11_13:28:14_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="timepatch"
Content-Transfer-Encoding: 7bit

*** time.el~	Sun Mar 09 03:37:32 1997
--- time.el	Tue Mar 11 13:18:08 1997
***************
*** 116,122 ****
    (start-itimer "display-time" 'display-time-function
  		display-time-interval display-time-interval))
  
! (defvar display-time-show-icons-maybe t
    "Use icons to indicate the mail status if possible")
  
  (defvar display-time-icons-dir (concat data-directory "time/"))
--- 116,122 ----
    (start-itimer "display-time" 'display-time-function
  		display-time-interval display-time-interval))
  
! (defvar display-time-show-icons-maybe (featurep 'xpm)
    "Use icons to indicate the mail status if possible")
  
  (defvar display-time-icons-dir (concat data-directory "time/"))

--Multipart_Tue_Mar_11_13:28:14_1997-1--

