color-hsl-to-rgb fix (tiny change)

* lisp/color.el (color-hsl-to-rgb): Fix incorrect results for small
and large hue values.

Fixes: debbugs:12559

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1010fc0ae11..861022aae88 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-06  Julian Scheid  <julians37@gmail.com>  (tiny change)
+
+        * color.el (color-hsl-to-rgb): Fix incorrect results for
+        small and large hue values.  (Bug#12559)
+
 2012-10-05  Fabián Ezequiel Gallina  <fgallina@cuca>
 
         Enhancements to docstring formatting when filling paragraphs.
diff --git a/lisp/color.el b/lisp/color.el
index f618d47a540..b915beacb0a 100644
--- a/lisp/color.el
+++ b/lisp/color.el
@@ -113,9 +113,9 @@ inclusive."
                  (- (+ L S) (* L S))))
            (m1 (- (* 2.0 L) m2)))
       (list
-       (color-hue-to-rgb m1 m2 (+ H (/ 1.0 3)))
+       (color-hue-to-rgb m1 m2 (mod (+ H (/ 1.0 3)) 1))
        (color-hue-to-rgb m1 m2 H)
-       (color-hue-to-rgb m1 m2 (- H (/ 1.0 3)))))))
+       (color-hue-to-rgb m1 m2 (mod (- H (/ 1.0 3)) 1))))))
 
 (defun color-complement-hex (color)
   "Return the color that is the complement of COLOR, in hexadecimal format."