branch: externals/ampc
commit 12e56e3e62113a36eb270646a3c78381019d3cdb
Author: Christopher Schmidt <christop...@ch.ristopher.com>
Commit: Christopher Schmidt <christop...@ch.ristopher.com>
* ampc.el (ampc-configure-frame-1): Minor simplification.
---
ampc.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/ampc.el b/ampc.el
index 13681e16be..df7d31defb 100644
--- a/ampc.el
+++ b/ampc.el
@@ -1486,13 +1486,12 @@ all the time!"
(window-height))
with rest = length
with rest-car
- for subsplit in (cdr split)
- for s = (car subsplit)
- if (equal s 1.0)
+ for (size . subsplit) in (cdr split)
+ if (equal size 1.0)
do (push t sizes)
and do (setf rest-car sizes)
else
- do (let ((l (if (integerp s) s (floor (* s length)))))
+ do (let ((l (if (integerp size) size (floor (* size length)))))
(setf rest (- rest l))
(push l sizes))
finally do (setf (car rest-car) rest))
