Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/src/xfaces.c Fri Nov 09 06:22:21 2001 +0000 +++ b/src/xfaces.c Fri Nov 09 06:46:22 2001 +0000 @@ -3310,10 +3310,12 @@ for (i = 1; i < LFACE_VECTOR_SIZE; ++i) if (!UNSPECIFIEDP (from[i])) - if (i == LFACE_HEIGHT_INDEX && !INTEGERP (from[i])) - to[i] = merge_face_heights (from[i], to[i], to[i], cycle_check); - else - to[i] = from[i]; + { + if (i == LFACE_HEIGHT_INDEX && !INTEGERP (from[i])) + to[i] = merge_face_heights (from[i], to[i], to[i], cycle_check); + else + to[i] = from[i]; + } /* TO is always an absolute face, which should inherit from nothing. We blindly copy the :inherit attribute above and fix it up here. */ @@ -4185,20 +4187,22 @@ } if (!NILP (param)) - if (EQ (frame, Qt)) - /* Update `default-frame-alist', which is used for new frames. */ - { - store_in_alist (&Vdefault_frame_alist, param, value); - } - else - /* Update the current frame's parameters. */ - { - Lisp_Object cons; - cons = XCAR (Vparam_value_alist); - XSETCAR (cons, param); - XSETCDR (cons, value); - Fmodify_frame_parameters (frame, Vparam_value_alist); - } + { + if (EQ (frame, Qt)) + /* Update `default-frame-alist', which is used for new frames. */ + { + store_in_alist (&Vdefault_frame_alist, param, value); + } + else + /* Update the current frame's parameters. */ + { + Lisp_Object cons; + cons = XCAR (Vparam_value_alist); + XSETCAR (cons, param); + XSETCDR (cons, value); + Fmodify_frame_parameters (frame, Vparam_value_alist); + } + } } return face;