From xemacs-m  Tue Mar 11 04:14:44 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 EAA03129
	for <xemacs-beta@xemacs.org>; Tue, 11 Mar 1997 04:14:42 -0600 (CST)
Received: by crystal.WonderWorks.COM 
	id QQcgjw20303; Tue, 11 Mar 1997 05:14:43 -0500 (EST)
Date: Tue, 11 Mar 1997 05:14:43 -0500 (EST)
Message-Id: <QQcgjw20303.199703111014@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: [PATCH] 20.1-b6: mouse track fix
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

Here's a patch for the bug that caused set-extent-face to be
called with a destroyed extent in the mouse track code.
I did not manage to duplicate the problem, but the stacktrace
gave a clear indication of where the problem was.

===================================================================
RCS file: lisp/prim/mouse.el,v
retrieving revision 1.1
diff -c -r1.1 lisp/prim/mouse.el
*** 1.1	1997/03/11 10:05:46
--- lisp/prim/mouse.el	1997/03/11 10:06:10
***************
*** 1048,1054 ****
    (if zmacs-regions
        (funcall 'default-mouse-track-cleanup-extents-hook)
      (let ((extent default-mouse-track-extent)
! 	  (func #'(lambda (e) (set-extent-face e 'primary-selection))))
        (add-hook 'pre-command-hook 'default-mouse-track-cleanup-extents-hook)
        (if (consp extent)		; rectangle-p
  	  (mapcar func extent)
--- 1048,1056 ----
    (if zmacs-regions
        (funcall 'default-mouse-track-cleanup-extents-hook)
      (let ((extent default-mouse-track-extent)
! 	  (func #'(lambda (e)
! 		    (and (extent-live-p e)
! 			 (set-extent-face e 'primary-selection)))))
        (add-hook 'pre-command-hook 'default-mouse-track-cleanup-extents-hook)
        (if (consp extent)		; rectangle-p
  	  (mapcar func extent)

