master 372c4eb: * lisp/windmove.el (windmove-frame-edges): Simplify.

[Juanma Barranquero]

branch: master
commit 372c4ebf6d3c7d39cc5b1e04e7f228543fec107d
Author: Juanma Barranquero <address@hidden>
Commit: Juanma Barranquero <address@hidden>

    * 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 f5f5148..feb269a 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: