Mercurial > hg > xemacs-beta

diff lisp/prim/mouse.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents cf808b4c4290
children 9f59509498e1
line wrap: on
line diff
--- a/lisp/prim/mouse.el	Mon Aug 13 09:18:41 2007 +0200
+++ b/lisp/prim/mouse.el	Mon Aug 13 09:19:45 2007 +0200
@@ -1048,7 +1048,9 @@
   (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))))
+	  (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)