From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 7 Sep 2001 11:33:32 +0000 (+0000)
Subject: (bg-window-from-x-y): Use
X-Git-Tag: emacs-pretest-21.0.106~207
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f3d7805a210edc0e0267ca6e6eadb176f8f4278;p=emacs.git

(bg-window-from-x-y): Use
get-window-with-predicate.
---

diff --git a/lisp/term/bg-mouse.el b/lisp/term/bg-mouse.el
index e4b78d18ea3..0035f59acdd 100644
--- a/lisp/term/bg-mouse.el
+++ b/lisp/term/bg-mouse.el
@@ -1,6 +1,6 @@
 ;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse
 
-;; Copyright (C) Free Software Foundation, Inc. Oct 1985.
+;; Copyright (C) 2001 Free Software Foundation, Inc. Oct 1985.
 
 ;; Author: John Robinson <jr@bbn-unix.arpa>
 ;;	Stephen Gildea <gildea@bbn.com>
@@ -255,7 +255,8 @@ X and Y are 0-based character positions in the window."
 (defun bg-window-from-x-y (x y)
   "Find window corresponding to screen coordinates.
 X and Y are 0-based character positions on the screen."
-  (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))))
 
 (defun bg-command-execute (bg-command)
   (if (commandp bg-command)