Skip to content

GitLab

Commit 4f3d7805 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

get-window-with-predicate.
parent b4ae6633
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 2 deletions
lisp/term/bg-mouse.el
View file @ 4f3d7805
;;; 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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment