Permit non-integral color gradients

* lisp/color.el (color-gradient): Float the step-number.

diff --git a/lisp/color.el b/lisp/color.el
index 6dbf3d55cbc0b53f0de5026b9fb0a621ab9b7225..ddd0fdb15ab84cdb025d9ddb8cb78fb6ca1341e4 100644 (file)
--- a/lisp/color.el
+++ b/lisp/color.el
@@ -82,9 +82,10 @@ resulting list."
   (let* ((r (nth 0 start))
         (g (nth 1 start))
         (b (nth 2 start))
-        (r-step (/ (- (nth 0 stop) r) (1+ step-number)))
-        (g-step (/ (- (nth 1 stop) g) (1+ step-number)))
-        (b-step (/ (- (nth 2 stop) b) (1+ step-number)))
+         (interval (float (1+ step-number)))
+        (r-step (/ (- (nth 0 stop) r) interval))
+        (g-step (/ (- (nth 1 stop) g) interval))
+        (b-step (/ (- (nth 2 stop) b) interval))
         result)
     (dotimes (_ step-number)
       (push (list (setq r (+ r r-step))