mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(sup-pos-to-window): Use

Browse source 
get-window-with-predicate.
This commit is contained in:
Gerd Moellmann 2001-09-07 11:34:17 +00:00
parent 4f3d7805a2
commit 75377eba1c
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/term/sup-mouse.el
View file

@ -193,6 +193,7 @@ X and Y are 0-based character positions in the window."
(defun sup-pos-to-window (x y)
"Find window corresponding to frame coordinates.
X and Y are 0-based character positions on the frame."
(some-window (lambda (w) (coordinates-in-window-p (cons x y) w))))
(get-window-with-predicate (lambda (w)
(coordinates-in-window-p (cons x y) w))))
;;; sup-mouse.el ends here