aboutsummaryrefslogtreecommitdiffstats
path: root/src/w32faces.c
diff options
context:
space:
mode:
authorKen Raeburn1999-09-12 07:05:34 +0000
committerKen Raeburn1999-09-12 07:05:34 +0000
commit8e713be64cb396e4fa30d8a393987b77d6cd99f6 (patch)
tree8ca8beed123bcd05a9849f9a575fbc73ca17edad /src/w32faces.c
parent70949dac51f3e975477e6b1a38cc78625efc4a40 (diff)
downloademacs-8e713be64cb396e4fa30d8a393987b77d6cd99f6.tar.gz
emacs-8e713be64cb396e4fa30d8a393987b77d6cd99f6.zip
Use XCAR and XCDR instead of explicit member references.
Diffstat (limited to 'src/w32faces.c')
-rw-r--r--src/w32faces.c24
1 files changed, 12 insertions, 12 deletions
diff --git a/src/w32faces.c b/src/w32faces.c
index 6b9356a95b0..61aeee17794 100644
--- a/src/w32faces.c
+++ b/src/w32faces.c
@@ -302,16 +302,16 @@ DEFUN ("pixmap-spec-p", Fpixmap_spec_p, Spixmap_spec_p, 1, 1, 0,
302 302
303 return ((STRINGP (object) 303 return ((STRINGP (object)
304 || (CONSP (object) 304 || (CONSP (object)
305 && CONSP (XCONS (object)->cdr) 305 && CONSP (XCDR (object))
306 && CONSP (XCONS (XCONS (object)->cdr)->cdr) 306 && CONSP (XCDR (XCDR (object)))
307 && NILP (XCONS (XCONS (XCONS (object)->cdr)->cdr)->cdr) 307 && NILP (XCDR (XCDR (XCDR (object))))
308 && (width = XCONS (object)->car, INTEGERP (width)) 308 && (width = XCAR (object), INTEGERP (width))
309 && (height = XCONS (XCONS (object)->cdr)->car, INTEGERP (height)) 309 && (height = XCAR (XCDR (object)), INTEGERP (height))
310 && STRINGP (XCONS (XCONS (XCONS (object)->cdr)->cdr)->car) 310 && STRINGP (XCAR (XCDR (XCDR (object))))
311 && XINT (width) > 0 311 && XINT (width) > 0
312 && XINT (height) > 0 312 && XINT (height) > 0
313 /* The string must have enough bits for width * height. */ 313 /* The string must have enough bits for width * height. */
314 && ((XSTRING (XCONS (XCONS (XCONS (object)->cdr)->cdr)->car)->size 314 && ((XSTRING (XCAR (XCDR (XCDR (object))))->size
315 * (BITS_PER_INT / sizeof (int))) 315 * (BITS_PER_INT / sizeof (int)))
316 >= XFASTINT (width) * XFASTINT (height)))) 316 >= XFASTINT (width) * XFASTINT (height))))
317 ? Qt : Qnil); 317 ? Qt : Qnil);
@@ -828,7 +828,7 @@ merge_face_list (f, face, prop)
828 int j; 828 int j;
829 829
830 if (CONSP (prop) 830 if (CONSP (prop)
831 && ! STRINGP (XCONS (prop)->cdr)) 831 && ! STRINGP (XCDR (prop)))
832 { 832 {
833 /* We have a list of faces, merge them in reverse order. */ 833 /* We have a list of faces, merge them in reverse order. */
834 834
@@ -855,10 +855,10 @@ merge_face_list (f, face, prop)
855 { 855 {
856 if (CONSP (faces[j])) 856 if (CONSP (faces[j]))
857 { 857 {
858 if (EQ (XCONS (faces[j])->car, Qbackground_color)) 858 if (EQ (XCAR (faces[j]), Qbackground_color))
859 face->background = load_color (f, XCONS (faces[j])->cdr); 859 face->background = load_color (f, XCDR (faces[j]));
860 if (EQ (XCONS (faces[j])->car, Qforeground_color)) 860 if (EQ (XCAR (faces[j]), Qforeground_color))
861 face->foreground = load_color (f, XCONS (faces[j])->cdr); 861 face->foreground = load_color (f, XCDR (faces[j]));
862 } 862 }
863 else 863 else
864 { 864 {