From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 7 Sep 2001 11:34:17 +0000 (+0000)
Subject: (sup-pos-to-window): Use
X-Git-Tag: emacs-pretest-21.0.106~206
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75377eba1c524a0a210abfaace2f5b4fe2da3392;p=emacs.git

(sup-pos-to-window): Use
get-window-with-predicate.
---

diff --git a/lisp/term/sup-mouse.el b/lisp/term/sup-mouse.el
index 849569e1847..d48ad3d8581 100644
--- a/lisp/term/sup-mouse.el
+++ b/lisp/term/sup-mouse.el
@@ -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