comparison lisp/term/bg-mouse.el @ 39174:f05289e60329

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

39173:afcda06e306e

;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse

;; Copyright (C) Free Software Foundation, Inc. Oct 1985.

;; Author: John Robinson <[e-mail]>
;;	Stephen Gildea <[e-mail]>
;; Maintainer: FSF
;; Keywords: hardware

;;; Returns the window that screen position (x, y) is in or nil if none,
;;; meaning we are in the echo area with a non-active minibuffer.
(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))))

(defun bg-command-execute (bg-command)
  (if (commandp bg-command)
      (command-execute bg-command)
    (ding)))

39174:f05289e60329

;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse

;; Copyright (C) 2001 Free Software Foundation, Inc. Oct 1985.

;; Author: John Robinson <[e-mail]>
;;	Stephen Gildea <[e-mail]>
;; Maintainer: FSF
;; Keywords: hardware

;;; Returns the window that screen position (x, y) is in or nil if none,
;;; meaning we are in the echo area with a non-active minibuffer.
(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."
  (get-window-with-predicate (lambda (w) 
			       (coordinates-in-window-p (cons x y) w))))

(defun bg-command-execute (bg-command)
  (if (commandp bg-command)
      (command-execute bg-command)
    (ding)))