branch: externals/buffer-expose
commit 9a2393c6f0572de04ca6c6cf731e4931edf071a5
Author: Clemens Radermacher <[email protected]>
Commit: Clemens Radermacher <[email protected]>
Cleanup
---
buffer-expose.el | 20 +++++++++++++-------
1 file changed, 13 insertions(+), 7 deletions(-)
diff --git a/buffer-expose.el b/buffer-expose.el
index 8abca11..ae9bf54 100644
--- a/buffer-expose.el
+++ b/buffer-expose.el
@@ -648,17 +648,23 @@ MAX is the maximum of windows to display per page."
(buffer-expose-choose))
(defun buffer-expose--window-config ()
+ "Return current window config.
+
+Window config is a list of (window . buffer) cells."
(let* ((w (frame-first-window))
- (ws (list (cons w (window-buffer w)))))
+ (conf (list (cons w (window-buffer w)))))
(while (setq w (buffer-expose--next-window w))
(push (cons w (window-buffer w))
- ws))
- (nreverse ws)))
+ conf))
+ (nreverse conf)))
+
+(defun buffer-expose--restore-windows (conf)
+ "Restore window config CONF.
-(defun buffer-expose--restore-windows (confs)
- (dolist (c confs)
- (setf (window-buffer (car c))
- (cdr c))))
+Window config is a list of (window . buffer) cells."
+ (dolist (wb conf)
+ (setf (window-buffer (car wb))
+ (cdr wb))))
(defun buffer-expose-next-page ()
"Page to next view."
