# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 999862457 0
# Node ID 8558951ba7361f1ea25331fc38a74b3597eece60
# Parent  f05289e60329d16e6be0fead29b74aa89d50a14d
(sup-pos-to-window): Use
get-window-with-predicate.

diff -r f05289e60329 -r 8558951ba736 lisp/term/sup-mouse.el
--- a/lisp/term/sup-mouse.el	Fri Sep 07 11:33:32 2001 +0000
+++ b/lisp/term/sup-mouse.el	Fri Sep 07 11:34:17 2001 +0000
@@ -193,6 +193,7 @@
 (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