branch: externals/ampc
commit f632ac3ece816e2fbdbe4a473a645503f3f1efc6
Author: Christopher Schmidt <[email protected]>
Commit: Christopher Schmidt <[email protected]>
* ampc.el (ampc-pad, ampc-set-tab-offsets): Use incf rather than setf/+.
---
ampc.el | 32 +++++++++++++++-----------------
1 file changed, 15 insertions(+), 17 deletions(-)
diff --git a/ampc.el b/ampc.el
index 045bab0bb0..04c5d829c1 100644
--- a/ampc.el
+++ b/ampc.el
@@ -908,8 +908,8 @@ all the time!"
and do (incf current-offset)
end
concat tab
- do (setf current-offset (+ current-offset (length tab))
- first nil)))
+ do (incf current-offset (length tab))
+ (setf first nil)))
(defun ampc-update-header ()
(setf header-line-format
@@ -1496,27 +1496,25 @@ all the time!"
(&rest properties &aux (min 2) (optional-padding 0))
(loop for (title . props) in properties
for min- = (plist-get props :min)
- do (setf min (+ min (or (plist-get props :width) min-)))
+ do (incf min (or (plist-get props :width) min-))
when min-
- do (setf optional-padding (+ optional-padding
- (- (plist-get props :max) min-)))
+ do (incf optional-padding (- (plist-get props :max) min-))
end)
(setf ampc-tab-offsets nil)
(loop for (title . props) in properties
with offset = 2
do (add-to-list 'ampc-tab-offsets offset t)
- (setf offset
- (+ offset (or (plist-get props :width)
- (let ((min- (plist-get props :min))
- (max (plist-get props :max)))
- (if (>= min (window-width))
- min-
- (min max
- (+ min-
- (floor (* (/ (float (- max min-))
- optional-padding)
- (- (window-width)
- min))))))))))))
+ (incf offset (or (plist-get props :width)
+ (let ((min- (plist-get props :min))
+ (max (plist-get props :max)))
+ (if (>= min (window-width))
+ min-
+ (min max
+ (+ min-
+ (floor (* (/ (float (- max min-))
+ optional-padding)
+ (- (window-width)
+ min)))))))))))
(defun* ampc-configure-frame-1 (split &aux (split-type (car split)))
(if (member split-type '(vertical horizontal))
