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

Reply via email to