From xemacs-m  Wed Jun 18 14:27:17 1997
Received: from altair.xemacs.org (xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id OAA26860
	for <xemacs-beta@xemacs.org>; Wed, 18 Jun 1997 14:27:16 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id MAA24515;
	Wed, 18 Jun 1997 12:26:19 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: customize buglet??
References: <bciiuzbvm08.fsf@corp.Sun.COM>
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@xemacs.org>
In-Reply-To: Gary.Foster@Corp.Sun.COM's message of "18 Jun 1997 10:50:15 -0700"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 18 Jun 1997 12:26:19 -0700
Message-ID: <m2hgevk90k.fsf@altair.xemacs.org>
Lines: 39
X-Mailer: Gnus v5.4.58/XEmacs 20.3(beta8) - "Copenhagen"

> Signaling: (wrong-type-argument mouse-event-p #<timeout-event nil>)
>   event-glyph-extent(#<timeout-event nil>)
>   widget-glyph-click(#<timeout-event nil>)
>   widget-button1-click(#<timeout-event nil>)
>   call-interactively(widget-button1-click)

I was able to duplicate this once, and then XEmacs locked up.  Does
this *experimental* patch (against custom-1.9920) help?

It begs the question of why this function is being called with a
timeout event instead of a mouse click.


1997-06-18  Steven L Baur  <steve@altair.xemacs.org>

	* wid-edit.el (widget-button1-click): Avoid executing with timeout 
	event.

Index: lisp/custom/wid-edit.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/custom/wid-edit.el,v
retrieving revision 1.17
diff -u -r1.17 wid-edit.el
--- wid-edit.el	1997/06/14 20:30:56	1.17
+++ wid-edit.el	1997/06/18 19:21:50
@@ -946,7 +947,8 @@
   "Invoke glyph below mouse pointer."
   (interactive "@e")
   (if (and (fboundp 'event-glyph)
-	   (event-glyph event))
+	   (event-glyph event)
+	   (not (timeout-event-p event)))
       (widget-glyph-click event)
     (call-interactively (lookup-key widget-global-map (this-command-keys)))))
 

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

