aboutsummaryrefslogtreecommitdiffstats
path: root/src/xfaces.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/xfaces.c')
-rw-r--r--src/xfaces.c24
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));