mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

color.el (color-name-to-rgb): Use the white color to find the max color component value and return correctly computed values.

Browse Source 
(color-name-to-rgb): Add missing float conversion for max value.
This commit is contained in:
Julien Danjou 2012-01-19 23:06:49 +00:00 committed by Katsumi Yamaoka
parent 1ef1768148
commit 0d0deb382b
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2012-01-19 Julien Danjou <julien@danjou.info>
* 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-19 Martin Rudalics <rudalics@gmx.at>
* window.el (window--state-get-1, window-state-get): Do not use

5
lisp/color.el
View File

@ -53,7 +53,10 @@ numbers, (RED GREEN BLUE), each between 0.0 and 1.0 inclusive.
Optional arg FRAME specifies the frame where the color is to be
displayed. If FRAME is omitted or nil, use the selected frame.
If FRAME cannot display COLOR, return nil."
(mapcar (lambda (x) (/ x 65535.0)) (color-values color frame)))
;; `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 (float (car (color-values "#ffffff")))))
(mapcar (lambda (x) (/ x valmax)) (color-values color frame))))
(defun color-rgb-to-hex (red green blue)
"Return hexadecimal notation for the color RED GREEN BLUE.