mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(bg-window-from-x-y): Use

Browse source 
get-window-with-predicate.
This commit is contained in:
Gerd Moellmann 2001-09-07 11:33:32 +00:00
parent b4ae66334c
commit 4f3d7805a2
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/term/bg-mouse.el
View file

@ -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)