diff options
| author | Pavel Janík | 2001-11-09 06:47:21 +0000 |
|---|---|---|
| committer | Pavel Janík | 2001-11-09 06:47:21 +0000 |
| commit | ab8469eb87c14e38dda7560b374be7b971d3d334 (patch) | |
| tree | b6474122f9947ec062e5d778f96f56844cff52fa /src | |
| parent | 40ef1eda444a59c3a76e2a70e478da47c964e9c6 (diff) | |
| download | emacs-ab8469eb87c14e38dda7560b374be7b971d3d334.tar.gz emacs-ab8469eb87c14e38dda7560b374be7b971d3d334.zip | |
(merge_face_vectors): Use braces to follow GNU Coding Standards.
(Finternal_set_lisp_face_attribute): Likewise.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/xfaces.c | 40 |
2 files changed, 26 insertions, 18 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 90ea2c07707..c0f15df7fb3 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,5 +1,9 @@ | |||
| 1 | 2001-11-09 Pavel Jan,Bm(Bk <Pavel@Janik.cz> | 1 | 2001-11-09 Pavel Jan,Bm(Bk <Pavel@Janik.cz> |
| 2 | 2 | ||
| 3 | * xfaces.c (merge_face_vectors): Use braces to follow GNU | ||
| 4 | Coding Standards. | ||
| 5 | (Finternal_set_lisp_face_attribute): Likewise. | ||
| 6 | |||
| 3 | * indent.c (current_column_1): Remove unused variable `prev_col'. | 7 | * indent.c (current_column_1): Remove unused variable `prev_col'. |
| 4 | 8 | ||
| 5 | 2001-11-07 Jason Rumney <jasonr@gnu.org> | 9 | 2001-11-07 Jason Rumney <jasonr@gnu.org> |
diff --git a/src/xfaces.c b/src/xfaces.c index afbf3e92d08..2bf3eae7bdf 100644 --- a/src/xfaces.c +++ b/src/xfaces.c | |||
| @@ -3310,10 +3310,12 @@ merge_face_vectors (f, from, to, cycle_check) | |||
| 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. */ |
| @@ -4185,20 +4187,22 @@ FRAME 0 means change the face on all frames, and change the default | |||
| 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; |