procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* xfaces.c (Finternal_make_lisp_face): Use ASET.

Browse source
This commit is contained in:
Stefan Monnier 2008-02-08 16:24:46 +00:00
parent 9141ca5e7d
commit dfae5f9a12
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/ChangeLog
View file

@ -2,6 +2,7 @@
* keymap.c (Fkey_description): Move side effect outside of macro call.
* xfaces.c (Finternal_make_lisp_face):
* keyboard.c (add_command_key, parse_menu_item): Use ASET.
* fontset.c (free_face_fontset): Use FONTSET_FROM_ID.

8
src/xfaces.c
View file

@ -4101,7 +4101,7 @@ Value is a vector of face attributes. */)
{
global_lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
Qunspecified);
AREF (global_lface, 0) = Qface;
ASET (global_lface, 0, Qface);
Vface_new_frame_defaults = Fcons (Fcons (face, global_lface),
Vface_new_frame_defaults);
@ -4123,7 +4123,7 @@ Value is a vector of face attributes. */)
}
else if (f == NULL)
for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
AREF (global_lface, i) = Qunspecified;
ASET (global_lface, i, Qunspecified);
/* Add a frame-local definition. */
if (f)
@ -4132,12 +4132,12 @@ Value is a vector of face attributes. */)
{
lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
Qunspecified);
AREF (lface, 0) = Qface;
ASET (lface, 0, Qface);
f->face_alist = Fcons (Fcons (face, lface), f->face_alist);
}
else
for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
AREF (lface, i) = Qunspecified;
ASET (lface, i, Qunspecified);
}
else
lface = global_lface;