mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source 
of cycling through windows with next-window.
This commit is contained in:
Gerd Moellmann 2000-07-03 09:11:33 +00:00
parent a74b0a725a
commit d8aa822b22
1 changed files with 1 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/term/bg-mouse.el
View File

@ -250,27 +250,10 @@ X and Y are 0-based character positions in the window."
;;; 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.
;;; If coordinates-in-window-p were not in an X-windows-specific file
;;; we could use that. In Emacs 19 can even use locate-window-from-coordinates
(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."
(let ((edges (window-edges))
(window nil))
(while (and (not (eq window (selected-window)))
(or (< y (nth 1 edges))
(>= y (nth 3 edges))
(< x (nth 0 edges))
(>= x (nth 2 edges))))
(setq window (next-window window))
(setq edges (window-edges window)))
(cond ((eq window (selected-window))
nil) ;we've looped: not found
((not window)
(selected-window)) ;just starting: current window
(t
window))
))
(some-window (lambda (w) (coordinates-in-window-p (cons x y) w))))
(defun bg-command-execute (bg-command)
(if (commandp bg-command)