Mercurial > hg > xemacs-beta

diff lisp/prim/mouse.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children 3d6bfa290dbd
line wrap: on
line diff
--- a/lisp/prim/mouse.el	Mon Aug 13 09:38:27 2007 +0200
+++ b/lisp/prim/mouse.el	Mon Aug 13 09:39:39 2007 +0200
@@ -1088,7 +1088,7 @@
 			 (extent-detached-p x)))))
 	(extent default-mouse-track-extent))
     (if (consp extent)
-	(if (some dead-func extent)
+	(if (funcall dead-func extent)
 	    (let (newval)
 	      (mapcar (function (lambda (x)
 				  (if (not (funcall dead-func x))