From 372c4ebf6d3c7d39cc5b1e04e7f228543fec107d Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 25 Oct 2019 14:23:07 +0200 Subject: [PATCH] * lisp/windmove.el (windmove-frame-edges): Simplify. --- lisp/windmove.el | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/lisp/windmove.el b/lisp/windmove.el index f5f51480db2..feb269a4074 100644 --- a/lisp/windmove.el +++ b/lisp/windmove.el @@ -324,15 +324,7 @@ of the frame; (X-MAX, Y-MAX) is the zero-based coordinate of the bottom-right corner of the frame. For example, if a frame has 76 rows and 181 columns, the return value from `windmove-frame-edges' will be the list (0 0 180 75)." - (let* ((frame (if window - (window-frame window) - (selected-frame))) - (top-left (window-edges (frame-first-window frame))) - (x-min (nth 0 top-left)) - (y-min (nth 1 top-left)) - (x-max (1- (frame-width frame))) ; 1- for last row & col - (y-max (1- (frame-height frame)))) - (list x-min y-min x-max y-max))) + (window-edges (frame-root-window window))) ;; it turns out that constraining is always a good thing, even when ;; wrapping is going to happen. this is because: -- 2.39.2