Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
1046 1046
1047 (defun default-mouse-track-cleanup-hook () 1047 (defun default-mouse-track-cleanup-hook ()
1048 (if zmacs-regions 1048 (if zmacs-regions
1049 (funcall 'default-mouse-track-cleanup-extents-hook) 1049 (funcall 'default-mouse-track-cleanup-extents-hook)
1050 (let ((extent default-mouse-track-extent) 1050 (let ((extent default-mouse-track-extent)
1051 (func #'(lambda (e) (set-extent-face e 'primary-selection)))) 1051 (func #'(lambda (e)
1052 (and (extent-live-p e)
1053 (set-extent-face e 'primary-selection)))))
1052 (add-hook 'pre-command-hook 'default-mouse-track-cleanup-extents-hook) 1054 (add-hook 'pre-command-hook 'default-mouse-track-cleanup-extents-hook)
1053 (if (consp extent) ; rectangle-p 1055 (if (consp extent) ; rectangle-p
1054 (mapcar func extent) 1056 (mapcar func extent)
1055 (if extent 1057 (if extent
1056 (funcall func extent)))))) 1058 (funcall func extent))))))