mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

(x-defined-colors): Take frame as optional arg.

Browse Source 
Check whether colors are really supported on the display in use.
This commit is contained in:
Richard M. Stallman 1995-04-16 04:17:36 +00:00
parent 7c49006bee
commit 891eb3fef5
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/term/x-win.el
View File

@ -490,17 +490,20 @@ This returns ARGS with the arguments that have been processed removed."
"Yellow"
"green yellow"
"GreenYellow")
"The full list of X colors from the rgb.text file.")
"The full list of X colors from the `rgb.text' file.")
(defun x-defined-colors ()
"Return a list of colors supported by the current X-Display."
(defun x-defined-colors (&optional frame)
"Return a list of colors supported for a particular frame.
The argument FRAME specifies which frame to try.
The value may be different for frames on different X displays."
(or frame (setq frame (selected-frame)))
(let ((all-colors x-colors)
(this-color nil)
(defined-colors nil))
(while all-colors
(setq this-color (car all-colors)
all-colors (cdr all-colors))
(and (x-color-defined-p this-color)
(and (face-color-supported-p frame this-color t)
(setq defined-colors (cons this-color defined-colors))))
defined-colors))