diff options
Diffstat (limited to 'src/xfaces.c')
| -rw-r--r-- | src/xfaces.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/xfaces.c b/src/xfaces.c index c7467b0fccc..f1d21c098f0 100644 --- a/src/xfaces.c +++ b/src/xfaces.c | |||
| @@ -979,7 +979,7 @@ load_pixmap (FRAME_PTR f, Lisp_Object name, unsigned int *w_ptr, unsigned int *h | |||
| 979 | h = XINT (Fcar (Fcdr (name))); | 979 | h = XINT (Fcar (Fcdr (name))); |
| 980 | bits = Fcar (Fcdr (Fcdr (name))); | 980 | bits = Fcar (Fcdr (Fcdr (name))); |
| 981 | 981 | ||
| 982 | bitmap_id = x_create_bitmap_from_data (f, SDATA (bits), | 982 | bitmap_id = x_create_bitmap_from_data (f, SSDATA (bits), |
| 983 | w, h); | 983 | w, h); |
| 984 | } | 984 | } |
| 985 | else | 985 | else |
| @@ -1271,7 +1271,7 @@ If FRAME is nil or omitted, use the selected frame. */) | |||
| 1271 | else | 1271 | else |
| 1272 | CHECK_FRAME (frame); | 1272 | CHECK_FRAME (frame); |
| 1273 | f = XFRAME (frame); | 1273 | f = XFRAME (frame); |
| 1274 | return face_color_gray_p (f, SDATA (color)) ? Qt : Qnil; | 1274 | return face_color_gray_p (f, SSDATA (color)) ? Qt : Qnil; |
| 1275 | } | 1275 | } |
| 1276 | 1276 | ||
| 1277 | 1277 | ||
| @@ -1292,7 +1292,7 @@ COLOR must be a valid color name. */) | |||
| 1292 | else | 1292 | else |
| 1293 | CHECK_FRAME (frame); | 1293 | CHECK_FRAME (frame); |
| 1294 | f = XFRAME (frame); | 1294 | f = XFRAME (frame); |
| 1295 | if (face_color_supported_p (f, SDATA (color), !NILP (background_p))) | 1295 | if (face_color_supported_p (f, SSDATA (color), !NILP (background_p))) |
| 1296 | return Qt; | 1296 | return Qt; |
| 1297 | return Qnil; | 1297 | return Qnil; |
| 1298 | } | 1298 | } |
| @@ -1322,7 +1322,7 @@ load_color (struct frame *f, struct face *face, Lisp_Object name, enum lface_att | |||
| 1322 | 1322 | ||
| 1323 | /* if the color map is full, defined_color will return a best match | 1323 | /* if the color map is full, defined_color will return a best match |
| 1324 | to the values in an existing cell. */ | 1324 | to the values in an existing cell. */ |
| 1325 | if (!defined_color (f, SDATA (name), &color, 1)) | 1325 | if (!defined_color (f, SSDATA (name), &color, 1)) |
| 1326 | { | 1326 | { |
| 1327 | add_to_log ("Unable to load color \"%s\"", name, Qnil); | 1327 | add_to_log ("Unable to load color \"%s\"", name, Qnil); |
| 1328 | 1328 | ||
| @@ -1399,7 +1399,7 @@ load_face_colors (struct frame *f, struct face *face, Lisp_Object *attrs) | |||
| 1399 | face_color_supported_p is smart enough to know that grays are | 1399 | face_color_supported_p is smart enough to know that grays are |
| 1400 | "supported" as background because we are supposed to use stipple | 1400 | "supported" as background because we are supposed to use stipple |
| 1401 | for them. */ | 1401 | for them. */ |
| 1402 | if (!face_color_supported_p (f, SDATA (bg), 0) | 1402 | if (!face_color_supported_p (f, SSDATA (bg), 0) |
| 1403 | && !NILP (Fbitmap_spec_p (Vface_default_stipple))) | 1403 | && !NILP (Fbitmap_spec_p (Vface_default_stipple))) |
| 1404 | { | 1404 | { |
| 1405 | x_destroy_bitmap (f, face->stipple); | 1405 | x_destroy_bitmap (f, face->stipple); |
| @@ -1586,7 +1586,7 @@ compare_fonts_by_sort_order (const void *v1, const void *v2) | |||
| 1586 | if (idx <= FONT_REGISTRY_INDEX) | 1586 | if (idx <= FONT_REGISTRY_INDEX) |
| 1587 | { | 1587 | { |
| 1588 | if (STRINGP (val1)) | 1588 | if (STRINGP (val1)) |
| 1589 | result = STRINGP (val2) ? strcmp (SDATA (val1), SDATA (val2)) : -1; | 1589 | result = STRINGP (val2) ? strcmp (SSDATA (val1), SSDATA (val2)) : -1; |
| 1590 | else | 1590 | else |
| 1591 | result = STRINGP (val2) ? 1 : 0; | 1591 | result = STRINGP (val2) ? 1 : 0; |
| 1592 | } | 1592 | } |
| @@ -2031,7 +2031,7 @@ resolve_face_name (Lisp_Object face_name, int signal_p) | |||
| 2031 | Lisp_Object tortoise, hare; | 2031 | Lisp_Object tortoise, hare; |
| 2032 | 2032 | ||
| 2033 | if (STRINGP (face_name)) | 2033 | if (STRINGP (face_name)) |
| 2034 | face_name = intern (SDATA (face_name)); | 2034 | face_name = intern (SSDATA (face_name)); |
| 2035 | 2035 | ||
| 2036 | if (NILP (face_name) || !SYMBOLP (face_name)) | 2036 | if (NILP (face_name) || !SYMBOLP (face_name)) |
| 2037 | return face_name; | 2037 | return face_name; |
| @@ -3502,7 +3502,7 @@ DEFUN ("internal-set-lisp-face-attribute-from-resource", | |||
| 3502 | else if (EQ (attr, QCbold) || EQ (attr, QCitalic)) | 3502 | else if (EQ (attr, QCbold) || EQ (attr, QCitalic)) |
| 3503 | value = face_boolean_x_resource_value (value, 1); | 3503 | value = face_boolean_x_resource_value (value, 1); |
| 3504 | else if (EQ (attr, QCweight) || EQ (attr, QCslant) || EQ (attr, QCwidth)) | 3504 | else if (EQ (attr, QCweight) || EQ (attr, QCslant) || EQ (attr, QCwidth)) |
| 3505 | value = intern (SDATA (value)); | 3505 | value = intern (SSDATA (value)); |
| 3506 | else if (EQ (attr, QCreverse_video) || EQ (attr, QCinverse_video)) | 3506 | else if (EQ (attr, QCreverse_video) || EQ (attr, QCinverse_video)) |
| 3507 | value = face_boolean_x_resource_value (value, 1); | 3507 | value = face_boolean_x_resource_value (value, 1); |
| 3508 | else if (EQ (attr, QCunderline) | 3508 | else if (EQ (attr, QCunderline) |
| @@ -3547,7 +3547,7 @@ x_update_menu_appearance (struct frame *f) | |||
| 3547 | char line[512]; | 3547 | char line[512]; |
| 3548 | Lisp_Object lface = lface_from_face_name (f, Qmenu, 1); | 3548 | Lisp_Object lface = lface_from_face_name (f, Qmenu, 1); |
| 3549 | struct face *face = FACE_FROM_ID (f, MENU_FACE_ID); | 3549 | struct face *face = FACE_FROM_ID (f, MENU_FACE_ID); |
| 3550 | const char *myname = SDATA (Vx_resource_name); | 3550 | const char *myname = SSDATA (Vx_resource_name); |
| 3551 | int changed_p = 0; | 3551 | int changed_p = 0; |
| 3552 | #ifdef USE_MOTIF | 3552 | #ifdef USE_MOTIF |
| 3553 | const char *popup_path = "popup_menu"; | 3553 | const char *popup_path = "popup_menu"; |
| @@ -3608,7 +3608,7 @@ x_update_menu_appearance (struct frame *f) | |||
| 3608 | if (! NILP (xlfd)) | 3608 | if (! NILP (xlfd)) |
| 3609 | { | 3609 | { |
| 3610 | #if defined HAVE_X_I18N | 3610 | #if defined HAVE_X_I18N |
| 3611 | char *fontsetname = xic_create_fontsetname (SDATA (xlfd), motif); | 3611 | char *fontsetname = xic_create_fontsetname (SSDATA (xlfd), motif); |
| 3612 | #else | 3612 | #else |
| 3613 | char *fontsetname = SSDATA (xlfd); | 3613 | char *fontsetname = SSDATA (xlfd); |
| 3614 | #endif | 3614 | #endif |
| @@ -4204,10 +4204,10 @@ If FRAME is unspecified or nil, the current frame is used. */) | |||
| 4204 | f = XFRAME (frame); | 4204 | f = XFRAME (frame); |
| 4205 | 4205 | ||
| 4206 | if (!(CONSP (color1) && parse_rgb_list (color1, &cdef1)) | 4206 | if (!(CONSP (color1) && parse_rgb_list (color1, &cdef1)) |
| 4207 | && !(STRINGP (color1) && defined_color (f, SDATA (color1), &cdef1, 0))) | 4207 | && !(STRINGP (color1) && defined_color (f, SSDATA (color1), &cdef1, 0))) |
| 4208 | signal_error ("Invalid color", color1); | 4208 | signal_error ("Invalid color", color1); |
| 4209 | if (!(CONSP (color2) && parse_rgb_list (color2, &cdef2)) | 4209 | if (!(CONSP (color2) && parse_rgb_list (color2, &cdef2)) |
| 4210 | && !(STRINGP (color2) && defined_color (f, SDATA (color2), &cdef2, 0))) | 4210 | && !(STRINGP (color2) && defined_color (f, SSDATA (color2), &cdef2, 0))) |
| 4211 | signal_error ("Invalid color", color2); | 4211 | signal_error ("Invalid color", color2); |
| 4212 | 4212 | ||
| 4213 | return make_number (color_distance (&cdef1, &cdef2)); | 4213 | return make_number (color_distance (&cdef1, &cdef2)); |