Mercurial > emacs
comparison src/xfaces.c @ 40838:bf08eafda9a3
(merge_face_vectors): Use braces to follow GNU Coding Standards.
(Finternal_set_lisp_face_attribute): Likewise.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Fri, 09 Nov 2001 06:46:22 +0000 |
parents | cdfd4d09b79a |
children | 566c75efb733 |
comparison
equal
deleted
inserted
replaced
40837:49b732d9bf27 | 40838:bf08eafda9a3 |
---|---|
3308 || !UNSPECIFIEDP (from[LFACE_AVGWIDTH_INDEX]))) | 3308 || !UNSPECIFIEDP (from[LFACE_AVGWIDTH_INDEX]))) |
3309 to[LFACE_FONT_INDEX] = Qnil; | 3309 to[LFACE_FONT_INDEX] = Qnil; |
3310 | 3310 |
3311 for (i = 1; i < LFACE_VECTOR_SIZE; ++i) | 3311 for (i = 1; i < LFACE_VECTOR_SIZE; ++i) |
3312 if (!UNSPECIFIEDP (from[i])) | 3312 if (!UNSPECIFIEDP (from[i])) |
3313 if (i == LFACE_HEIGHT_INDEX && !INTEGERP (from[i])) | 3313 { |
3314 to[i] = merge_face_heights (from[i], to[i], to[i], cycle_check); | 3314 if (i == LFACE_HEIGHT_INDEX && !INTEGERP (from[i])) |
3315 else | 3315 to[i] = merge_face_heights (from[i], to[i], to[i], cycle_check); |
3316 to[i] = from[i]; | 3316 else |
3317 to[i] = from[i]; | |
3318 } | |
3317 | 3319 |
3318 /* TO is always an absolute face, which should inherit from nothing. | 3320 /* TO is always an absolute face, which should inherit from nothing. |
3319 We blindly copy the :inherit attribute above and fix it up here. */ | 3321 We blindly copy the :inherit attribute above and fix it up here. */ |
3320 to[LFACE_INHERIT_INDEX] = Qnil; | 3322 to[LFACE_INHERIT_INDEX] = Qnil; |
3321 } | 3323 } |
4183 else | 4185 else |
4184 menu_face_changed_default = 1; | 4186 menu_face_changed_default = 1; |
4185 } | 4187 } |
4186 | 4188 |
4187 if (!NILP (param)) | 4189 if (!NILP (param)) |
4188 if (EQ (frame, Qt)) | 4190 { |
4189 /* Update `default-frame-alist', which is used for new frames. */ | 4191 if (EQ (frame, Qt)) |
4190 { | 4192 /* Update `default-frame-alist', which is used for new frames. */ |
4191 store_in_alist (&Vdefault_frame_alist, param, value); | 4193 { |
4192 } | 4194 store_in_alist (&Vdefault_frame_alist, param, value); |
4193 else | 4195 } |
4194 /* Update the current frame's parameters. */ | 4196 else |
4195 { | 4197 /* Update the current frame's parameters. */ |
4196 Lisp_Object cons; | 4198 { |
4197 cons = XCAR (Vparam_value_alist); | 4199 Lisp_Object cons; |
4198 XSETCAR (cons, param); | 4200 cons = XCAR (Vparam_value_alist); |
4199 XSETCDR (cons, value); | 4201 XSETCAR (cons, param); |
4200 Fmodify_frame_parameters (frame, Vparam_value_alist); | 4202 XSETCDR (cons, value); |
4201 } | 4203 Fmodify_frame_parameters (frame, Vparam_value_alist); |
4204 } | |
4205 } | |
4202 } | 4206 } |
4203 | 4207 |
4204 return face; | 4208 return face; |
4205 } | 4209 } |
4206 | 4210 |