Mercurial > emacs
comparison src/xfaces.c @ 27100:9a0d8503806e
(Fcolor_gray_p): Renamed from face-color-gray-p.
(Fcolor_supported_p): Renamed from face-color-supported-p.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Mon, 03 Jan 2000 11:51:33 +0000 |
parents | 23bd823f11f4 |
children | 4efa5e54e9a9 |
comparison
equal
deleted
inserted
replaced
27099:530395bf70cf | 27100:9a0d8503806e |
---|---|
1249 && face_color_gray_p (f, color_name))) | 1249 && face_color_gray_p (f, color_name))) |
1250 : tty_defined_color (f, color_name, ¬_used, 0)); | 1250 : tty_defined_color (f, color_name, ¬_used, 0)); |
1251 } | 1251 } |
1252 | 1252 |
1253 | 1253 |
1254 DEFUN ("face-color-gray-p", Fface_color_gray_p, Sface_color_gray_p, 1, 2, 0, | 1254 DEFUN ("color-gray-p", Fcolor_gray_p, Scolor_gray_p, 1, 2, 0, |
1255 "Return non-nil if COLOR is a shade of gray (or white or black).\n\ | 1255 "Return non-nil if COLOR is a shade of gray (or white or black).\n\ |
1256 FRAME specifies the frame and thus the display for interpreting COLOR.\n\ | 1256 FRAME specifies the frame and thus the display for interpreting COLOR.\n\ |
1257 If FRAME is nil or omitted, use the selected frame.") | 1257 If FRAME is nil or omitted, use the selected frame.") |
1258 (color, frame) | 1258 (color, frame) |
1259 Lisp_Object color, frame; | 1259 Lisp_Object color, frame; |
1265 f = XFRAME (frame); | 1265 f = XFRAME (frame); |
1266 return face_color_gray_p (f, XSTRING (color)->data) ? Qt : Qnil; | 1266 return face_color_gray_p (f, XSTRING (color)->data) ? Qt : Qnil; |
1267 } | 1267 } |
1268 | 1268 |
1269 | 1269 |
1270 DEFUN ("face-color-supported-p", Fface_color_supported_p, | 1270 DEFUN ("color-supported-p", Fcolor_supported_p, |
1271 Sface_color_supported_p, 2, 3, 0, | 1271 Scolor_supported_p, 2, 3, 0, |
1272 "Return non-nil if COLOR can be displayed on FRAME.\n\ | 1272 "Return non-nil if COLOR can be displayed on FRAME.\n\ |
1273 BACKGROUND-P non-nil means COLOR is used as a background.\n\ | 1273 BACKGROUND-P non-nil means COLOR is used as a background.\n\ |
1274 If FRAME is nil or omitted, use the selected frame.\n\ | 1274 If FRAME is nil or omitted, use the selected frame.\n\ |
1275 COLOR must be a valid color name.") | 1275 COLOR must be a valid color name.") |
1276 (frame, color, background_p) | 1276 (color, frame, background_p) |
1277 Lisp_Object frame, color, background_p; | 1277 Lisp_Object frame, color, background_p; |
1278 { | 1278 { |
1279 struct frame *f; | 1279 struct frame *f; |
1280 | 1280 |
1281 CHECK_FRAME (frame, 0); | 1281 CHECK_FRAME (frame, 0); |