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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58b1d70..e82d004 100644 (file)
--- 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  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        New UIDL implementation.

diff --git a/lisp/color.el b/lisp/color.el
index 39b172d..843c12f 100644 (file)
--- 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."