branch: externals/buffer-expose
commit c0034f591ccfed2a9ed8bdb872b619718d94e5cf
Author: Clemens Radermacher <[email protected]>
Commit: Clemens Radermacher <[email protected]>
Code reordering
---
buffer-expose.el | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/buffer-expose.el b/buffer-expose.el
index 4821758..7f1594d 100644
--- a/buffer-expose.el
+++ b/buffer-expose.el
@@ -786,6 +786,15 @@ show per page, which defaults to
`buffer-expose-max-num-windows'."
;; * grid commands
+
+(defun buffer-expose--last-to (dir &optional f)
+ "Get last window in direction DIR from window F."
+ (let ((w (or f (selected-window)))
+ (nw nil))
+ (while (setq w (window-in-direction dir w))
+ (setq nw w))
+ nw))
+
(defun buffer-expose--first-window-in-col (&optional f)
"Get first window in column of window F.
@@ -810,14 +819,6 @@ F defaults to the currently selected window."
F defaults to the currently selected window."
(buffer-expose--last-to 'right f))
-(defun buffer-expose--last-to (dir &optional f)
- "Get last window in direction DIR from window F."
- (let ((w (or f (selected-window)))
- (nw nil))
- (while (setq w (window-in-direction dir w))
- (setq nw w))
- nw))
-
(defun buffer-expose--get-current-row (&optional f)
"Get row of window F.