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, &not_used, 0)); 1250 : tty_defined_color (f, color_name, &not_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);