Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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))))))