[elpa] externals/buffer-expose 9a2393c 28/38: Cleanup

[Clemens Radermacher]

branch: externals/buffer-expose
commit 9a2393c6f0572de04ca6c6cf731e4931edf071a5
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    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."