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