mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(tty-color-approximate): Doc fix.

Browse Source
This commit is contained in:
Luc Teirlinck 2004-07-24 21:58:34 +00:00
parent 15a24762a4
commit b96b979c74
2 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2004-07-24 Luc Teirlinck <teirllm@auburn.edu>
* term/tty-colors.el (tty-color-approximate): Doc fix.
* select.el (x-get-selection, x-set-selection): Doc fixes.
* frame.el (make-frame): Doc fix.
2004-07-24 Richard M. Stallman <rms@gnu.org>
* mail/rmail.el (rmail-mime-charset-pattern):

13
lisp/term/tty-colors.el
View File

@ -864,15 +864,10 @@ of gray, thus the name."
(if (< mag 1) 0 (acos (/ (+ r g b) mag)))))
(defun tty-color-approximate (rgb &optional frame)
"Given a list of 3 rgb values in RGB, find the color in `tty-color-alist'
which is the best approximation in the 3-dimensional RGB space,
and return its description.
Value is a list of the form \(NAME INDEX R G B\). Note that the returned
NAME is not necessarily the same string as the argument COLOR, because
the latter might need to be approximated if it is not supported directly.
Each value of the RGB triplet should be in the range 0..65535 range.
"Find the color in `tty-color-alist' that best approximates RGB.
Value is a list of the form \(NAME INDEX R G B\).
The argument RGB should be an rgb value, that is, a list of three
integers in the 0..65535 range.
FRAME defaults to the selected frame."
(let* ((color-list (tty-color-alist frame))
(candidate (car color-list))