From xemacs-m  Sat Jul 12 02:08:40 1997
Received: from crystal.WonderWorks.COM (crystal.WonderWorks.com [192.203.206.1])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id CAA28002
	for <xemacs-beta@xemacs.org>; Sat, 12 Jul 1997 02:08:38 -0500 (CDT)
Received: by crystal.WonderWorks.COM 
	id QQcxvo18267; Sat, 12 Jul 1997 03:08:39 -0400 (EDT)
Date: Sat, 12 Jul 1997 03:08:39 -0400 (EDT)
Message-Id: <QQcxvo18267.199707120708@crystal.WonderWorks.COM>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
From: Kyle Jones <kyle_jones@wonderworks.com>
To: xemacs-beta@xemacs.org
Subject: Re: Two problems with Helsinki (and previous betas also)
In-Reply-To: <m2oh88q0d7.fsf@altair.xemacs.org>
References: <19970712061537.61444@iria.mines.u-nancy.fr>
	<m2oh88q0d7.fsf@altair.xemacs.org>
X-Mailer: VM 6.33 under 20.3 "Helsinki" XEmacs  Lucid (beta12)
X-Face: /cA45WHG7jWq>(O3&Z57Y<"WsX5ddc,4c#w0F*zrV#=M
        0@~@,s;b,aMtR5Sqs"+nU.z^CSFQ9t`z2>W,S,]:[+2^
        Nbf6v4g>!&,7R4Ot4Wg{&tm=WX7P["9%a)_da48-^tGy
        ,qz]Z,Zz\{E.,]'EO+F)@$KtF&V

Steven L Baur writes:
 > Olivier Galibert <Olivier.Galibert@mines.u-nancy.fr> writes:
 > 
 > > xemacs -q, mule support, all error checking thrown out (the debugging
 > > code seems to be the cause of my crashes, I'll investigate further).
 > 
 > 
 > > 1- When you split the window you can't move the modeline. Clicking
 > > on it lays :
 > >   Wrong type argument: command-event-p, #<eval-event (identity nil)> unread-command-events)
 > 
 > I cannot reproduce this with `-q -no-site-file' and full error checking
 > turned on.

I don't know what in Dog's name is enqueueing dummy eval events
but this patch probably will the problem.

--- 1.1	1997/07/12 07:03:11
+++ lisp/prim/modeline.el	1997/07/12 07:03:40
@@ -95,8 +95,7 @@
       ;;   drag-modeline-event-lag.
       ;; do nothing if this is any other kind of event.
       (cond ((or (misc-user-event-p event)
-		 (key-press-event-p event)
-		 (eval-event-p event))
+		 (key-press-event-p event))
 	     (setq unread-command-events (nconc unread-command-events
 						(list event))
 		   done t))

