From 4f3d7805a210edc0e0267ca6e6eadb176f8f4278 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 7 Sep 2001 11:33:32 +0000 Subject: [PATCH] (bg-window-from-x-y): Use get-window-with-predicate. --- lisp/term/bg-mouse.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 ;; Stephen Gildea @@ -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) -- 2.39.2