changeset 39175:8558951ba736

(sup-pos-to-window): Use get-window-with-predicate.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 07 Sep 2001 11:34:17 +0000
parents f05289e60329
children 286d91f8ebe3
files lisp/term/sup-mouse.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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