diff options
| author | Juanma Barranquero | 2019-10-25 14:23:07 +0200 |
|---|---|---|
| committer | Juanma Barranquero | 2019-10-25 14:23:07 +0200 |
| commit | 372c4ebf6d3c7d39cc5b1e04e7f228543fec107d (patch) | |
| tree | 24ae22fcd4202b289b45152d2049e61531b92386 | |
| parent | fcc427f3562e43791ed2ab4370dc2c13e7435849 (diff) | |
| download | emacs-372c4ebf6d3c7d39cc5b1e04e7f228543fec107d.tar.gz emacs-372c4ebf6d3c7d39cc5b1e04e7f228543fec107d.zip | |
* lisp/windmove.el (windmove-frame-edges): Simplify.
| -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 | |||
| 324 | bottom-right corner of the frame. | 324 | bottom-right corner of the frame. |
| 325 | For example, if a frame has 76 rows and 181 columns, the return value | 325 | For example, if a frame has 76 rows and 181 columns, the return value |
| 326 | from `windmove-frame-edges' will be the list (0 0 180 75)." | 326 | from `windmove-frame-edges' will be the list (0 0 180 75)." |
| 327 | (let* ((frame (if window | 327 | (window-edges (frame-root-window window))) |
| 328 | (window-frame window) | ||
| 329 | (selected-frame))) | ||
| 330 | (top-left (window-edges (frame-first-window frame))) | ||
| 331 | (x-min (nth 0 top-left)) | ||
| 332 | (y-min (nth 1 top-left)) | ||
| 333 | (x-max (1- (frame-width frame))) ; 1- for last row & col | ||
| 334 | (y-max (1- (frame-height frame)))) | ||
| 335 | (list x-min y-min x-max y-max))) | ||
| 336 | 328 | ||
| 337 | ;; it turns out that constraining is always a good thing, even when | 329 | ;; it turns out that constraining is always a good thing, even when |
| 338 | ;; wrapping is going to happen. this is because: | 330 | ;; wrapping is going to happen. this is because: |