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

(Finternal_set_alternative_font_family_alist)

Browse source 
(Finternal_set_alternative_font_registry_alist): Properly copy entire
alist structure.
This commit is contained in:
Chong Yidong 2008-09-01 19:46:16 +00:00
parent d7642a183f
commit a77d5bb2eb
1 changed files with 19 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
src/xfaces.c
View file

@ -5452,13 +5452,20 @@ be found. Value is ALIST. */)
(alist)
Lisp_Object alist;
{
Lisp_Object tail, tail2;
Lisp_Object entry, tail, tail2;
CHECK_LIST (alist);
alist = Fcopy_sequence (alist);
for (tail = alist; CONSP (tail); tail = XCDR (tail))
for (tail2 = XCAR (tail); CONSP (tail2); tail2 = XCDR (tail2))
XSETCAR (tail2, Fintern (XCAR (tail2), Qnil));
{
entry = XCAR (tail);
CHECK_LIST (entry);
entry = Fcopy_sequence (entry);
XSETCAR (tail, entry);
for (tail2 = entry; CONSP (tail2); tail2 = XCDR (tail2))
XSETCAR (tail2, Fintern (XCAR (tail2), Qnil));
}
Vface_alternative_font_family_alist = alist;
free_all_realized_faces (Qnil);
return alist;
@ -5475,13 +5482,19 @@ be found. Value is ALIST. */)
(alist)
Lisp_Object alist;
{
Lisp_Object tail, tail2;
Lisp_Object entry, tail, tail2;
CHECK_LIST (alist);
alist = Fcopy_sequence (alist);
for (tail = alist; CONSP (tail); tail = XCDR (tail))
for (tail2 = XCAR (tail); CONSP (tail2); tail2 = XCDR (tail2))
XSETCAR (tail2, Fdowncase (XCAR (tail2)));
{
entry = XCAR (tail);
CHECK_LIST (entry);
entry = Fcopy_sequence (entry);
XSETCAR (tail, entry);
for (tail2 = entry; CONSP (tail2); tail2 = XCDR (tail2))
XSETCAR (tail2, Fdowncase (XCAR (tail2)));
}
Vface_alternative_font_registry_alist = alist;
free_all_realized_faces (Qnil);
return alist;