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

(face-color-supported-p): Return nil if no window system.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-11-20 23:15:55 +00:00
parent 8a10f781cf
commit 055ff5a6af
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/faces.el
View File

@ -1176,15 +1176,16 @@ selected frame."
;; Assuming COLOR is a valid color name,
;; return t if it can be displayed on FRAME.
(defun face-color-supported-p (frame color background-p)
(or (x-display-color-p frame)
;; A black-and-white display can implement these.
(member color '("black" "white"))
;; A black-and-white display can fake gray for background.
(and background-p
(face-color-gray-p color frame))
;; A grayscale display can implement colors that are gray (more or less).
(and (x-display-grayscale-p frame)
(face-color-gray-p color frame))))
(and window-system
(or (x-display-color-p frame)
;; A black-and-white display can implement these.
(member color '("black" "white"))
;; A black-and-white display can fake gray for background.
(and background-p
(face-color-gray-p color frame))
;; A grayscale display can implement colors that are gray (more or less).
(and (x-display-grayscale-p frame)
(face-color-gray-p color frame)))))
;; Use FUNCTION to store a color in FACE on FRAME.
;; COLORS is either a single color or a list of colors.