Mercurial > hg > xemacs-beta

diff lisp/prim/mouse.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents 441bb1e64a06
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/prim/mouse.el	Mon Aug 13 08:52:30 2007 +0200
+++ b/lisp/prim/mouse.el	Mon Aug 13 08:52:56 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)