From xemacs-m  Thu Apr 10 18:18:33 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 SAA00246
	for <xemacs-beta@xemacs.org>; Thu, 10 Apr 1997 18:18:32 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id QAA25859;
	Thu, 10 Apr 1997 16:31:28 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: aux patch for empty event checks.
References: <8667xu79qd.fsf@kramer.in.aventail.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@miranova.com>
In-Reply-To: wmperry@aventail.com's message of 10 Apr 1997 16:12:58 -0700
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: 10 Apr 1997 16:31:28 -0700
Message-ID: <m2912qlajz.fsf@altair.xemacs.org>
Lines: 54
X-Mailer: Gnus v5.4.42/XEmacs 20.1(beta14)

(I already made a different patch for this and posted it)

William M Perry <wmperry@aventail.com> writes:

> (event-properties (allocate-event)) would crash as well.  Apply this as
> well as my last patch.

Ooh, forgot about this one.  My fix to events.c (with corresponding
changes to general.c and emacsfns.h looks like:

Index: src/events.c
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/src/events.c,v
retrieving revision 1.3
diff -u -r1.3 events.c
--- events.c	1997/04/10 05:56:39	1.3
+++ events.c	1997/04/10 23:28:45
@@ -1097,6 +1097,9 @@
 timeout		A timeout has expired.
 eval		This causes a specified action to occur when dispatched.
 magic		Some window-system-specific event has occurred.
+dead		The event has been deallocated.
+empty		The event has been allocated but not assigned.
+
 */
        (event))
 {
@@ -1131,6 +1134,12 @@
     case magic_eval_event:
       return Qmagic;
 
+    case empty_event:
+      return Qempty;
+
+    case dead_event:
+      return Qdead;
+
     default:
       abort ();
       return Qnil;
@@ -1841,6 +1850,8 @@
 
     case magic_eval_event:
     case magic_event:
+    case dead_event:
+    case empty_event:
       break;
 
     default:


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

