Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
1086 (function (lambda (x) 1086 (function (lambda (x)
1087 (or (not (extent-live-p x)) 1087 (or (not (extent-live-p x))
1088 (extent-detached-p x))))) 1088 (extent-detached-p x)))))
1089 (extent default-mouse-track-extent)) 1089 (extent default-mouse-track-extent))
1090 (if (consp extent) 1090 (if (consp extent)
1091 (if (some dead-func extent) 1091 (if (funcall dead-func extent)
1092 (let (newval) 1092 (let (newval)
1093 (mapcar (function (lambda (x) 1093 (mapcar (function (lambda (x)
1094 (if (not (funcall dead-func x)) 1094 (if (not (funcall dead-func x))
1095 (setq newval (cons x newval))))) 1095 (setq newval (cons x newval)))))
1096 extent) 1096 extent)