diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2019-10-25 14:23:07 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2019-10-25 14:23:07 +0200 |
| commit | 372c4ebf6d3c7d39cc5b1e04e7f228543fec107d (patch) | |
| tree | 24ae22fcd4202b289b45152d2049e61531b92386 /lisp/windmove.el | |
| parent | fcc427f3562e43791ed2ab4370dc2c13e7435849 (diff) | |
| download | emacs-372c4ebf6d3c7d39cc5b1e04e7f228543fec107d.tar.gz | |
* lisp/windmove.el (windmove-frame-edges): Simplify.
Diffstat (limited to 'lisp/windmove.el')
| -rw-r--r-- | lisp/windmove.el | 10 |
1 files changed, 1 insertions, 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: |