From: Mark Oteiza <mvoteiza@udel.edu>
Date: Wed, 13 Sep 2017 13:59:37 +0000 (-0400)
Subject: Permit non-integral color gradients
X-Git-Tag: emacs-26.0.90~173^2~32
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d433d9b22d2c5f209cb27e80c13576e6d1bf9b7;p=emacs.git

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 6dbf3d55cbc..ddd0fdb15ab 100644
--- 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))