[gnus git] branch master updated: n0-17-472-g66ae519 =1= color: add missing float
Julien Danjou <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via 66ae5194ddbc52b036936ccc50df86f4d4eaef41 (commit)
from 731c0e590ea80d0eae78b2e7babb939cfd036bea (commit)
- Log -----------------------------------------------------------------
commit 66ae5194ddbc52b036936ccc50df86f4d4eaef41
Author: Julien Danjou <[email protected]>
Date: Thu Jan 19 15:11:58 2012 +0100
color: add missing float
Signed-off-by: Julien Danjou <[email protected]>
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d1a7da4..c0bc77a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
* color.el (color-name-to-rgb): Use the white color to find the max
color component value and return correctly computed values.
+ (color-name-to-rgb): Add missing float conversion for max value.
2012-01-10 Teodor Zlatanov <[email protected]>
diff --git a/lisp/color.el b/lisp/color.el
index 3112e0d..6fab613 100644
--- a/lisp/color.el
+++ b/lisp/color.el
@@ -55,7 +55,7 @@ displayed. If FRAME is omitted or nil, use the selected frame.
If FRAME cannot display COLOR, return nil."
;; `colors-values' maximum value is either 65535 or 65280 depending on the
;; display system. So we use a white conversion to get the max value.
- (let ((valmax (car (color-values "#ffffff"))))
+ (let ((valmax (float (car (color-values "#ffffff")))))
(mapcar (lambda (x) (/ x valmax)) (color-values color frame))))
(defun color-rgb-to-hex (red green blue)
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 1 +
lisp/color.el | 2 +-
2 files changed, 2 insertions(+), 1 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project