branch: externals/face-shift
commit 726c0f198f0f8e7e9119bad5c0be51140555aace
Author: Philip K <[email protected]>
Commit: Philip K <[email protected]>
switched from map to cl-map to avoid implicit cl dependency
---
face-shift.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/face-shift.el b/face-shift.el
index 8d2a710bb0..6b9cc74d88 100644
--- a/face-shift.el
+++ b/face-shift.el
@@ -98,11 +98,11 @@ See `face-shift--interpolate'."
(defun face-shift--interpolate (col-ref col-base)
"Attempt to find median colour between `col-ref' and `col-base'."
- (map 'list (lambda (ref base)
- (if (> face-shift-intensity 0)
- (- 1 (* (- 1 (* ref base)) face-shift-intensity))
- (* (* ref base) (abs face-shift-intensity))))
- col-ref col-base))
+ (cl-map 'list (lambda (ref base)
+ (if (> face-shift-intensity 0)
+ (- 1 (* (- 1 (* ref base)) face-shift-intensity))
+ (* (* ref base) (abs face-shift-intensity))))
+ col-ref col-base))
(defun face-shift-setup (&optional buffer)
"Shift colours in BUFFER according to `face-shift-shifts'.