diff options
| author | Ken Raeburn | 1999-09-12 07:05:34 +0000 |
|---|---|---|
| committer | Ken Raeburn | 1999-09-12 07:05:34 +0000 |
| commit | 8e713be64cb396e4fa30d8a393987b77d6cd99f6 (patch) | |
| tree | 8ca8beed123bcd05a9849f9a575fbc73ca17edad /src/w32faces.c | |
| parent | 70949dac51f3e975477e6b1a38cc78625efc4a40 (diff) | |
| download | emacs-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.c | 24 |
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 | { |