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

Use 65535 as color-values scale value in the NS backend

Browse Source 
* src/nsfns.m (Fxw_color_values): Scale with 65535 instead of 65280, for
uniformity with other backends.
* lisp/faces.el (color-values): Update doc string.
* doc/lispref/frames.texi (Color Names): Update examples.
This commit is contained in:
Mattias Engdegård 2020-06-06 11:23:48 +02:00
parent 788cd6d8b9
commit 9fc935f122
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
doc/lispref/frames.texi
View File

@ -3975,11 +3975,11 @@ If @var{color} is not defined, the value is @code{nil}.
(color-values "black")
@result{} (0 0 0)
(color-values "white")
@result{} (65280 65280 65280)
@result{} (65535 65535 65535)
(color-values "red")
@result{} (65280 0 0)
@result{} (65535 0 0)
(color-values "pink")
@result{} (65280 49152 51968)
@result{} (65535 49344 52171)
(color-values "hungry")
@result{} nil
@end example

2
lisp/faces.el
View File

@ -1822,7 +1822,7 @@ COLOR should be a string naming a color (e.g. \"white\"), or a
string specifying a color's RGB components (e.g. \"#ff12ec\").
Return a list of three integers, (RED GREEN BLUE), each between 0
and either 65280 or 65535 (the maximum depends on the system).
and 65535 inclusive.
Use `color-name-to-rgb' if you want RGB floating-point values
normalized to 1.0.

4
src/nsfns.m
View File

@ -2329,8 +2329,8 @@ Frames are listed from topmost (first) to bottommost (last). */)
[[col colorUsingDefaultColorSpace]
getRed: &red green: &green blue: &blue alpha: &alpha];
unblock_input ();
return list3i (lrint (red * 65280), lrint (green * 65280),
lrint (blue * 65280));
return list3i (lrint (red * 65535), lrint (green * 65535),
lrint (blue * 65535));
}