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

(font_put_extra): If VAL is nil, delete the slot for PROP

Browse source 
from the list of extra properties.
(font_clear_prop): Be sure to delete `:name' font property.
This commit is contained in:
Kenichi Handa 2009-04-09 02:40:51 +00:00
parent 583ebd6327
commit 483670b590
2 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/ChangeLog
View file

@ -1,3 +1,9 @@
2009-04-09 Kenichi Handa <handa@m17n.org>
* font.c (font_put_extra): If VAL is nil, delete the slot for PROP
from the list of extra properties.
(font_clear_prop): Be sure to delete `:name' font property.
2009-04-08 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
* dispnew.c (redraw_overlapping_rows): Fix detection of

13
src/font.c
View file

@ -719,6 +719,8 @@ font_put_extra (font, prop, val)
{
Lisp_Object prev = Qnil;
if (NILP (val))
return val;
while (CONSP (extra)
&& NILP (Fstring_lessp (prop, XCAR (XCAR (extra)))))
prev = extra, extra = XCDR (extra);
@ -729,6 +731,8 @@ font_put_extra (font, prop, val)
return val;
}
XSETCDR (slot, val);
if (NILP (val))
ASET (font, FONT_EXTRA_INDEX, Fdelq (slot, extra));
return val;
}
@ -3078,13 +3082,20 @@ font_clear_prop (attrs, prop)
if (! FONTP (font))
return;
if (! NILP (Ffont_get (font, QCname)))
{
font = Fcopy_font_spec (font);
font_put_extra (font, QCname, Qnil);
}
if (NILP (AREF (font, prop))
&& prop != FONT_FAMILY_INDEX
&& prop != FONT_FOUNDRY_INDEX
&& prop != FONT_WIDTH_INDEX
&& prop != FONT_SIZE_INDEX)
return;
font = Fcopy_font_spec (font);
if (EQ (font, attrs[LFACE_FONT_INDEX]))
font = Fcopy_font_spec (font);
ASET (font, prop, Qnil);
if (prop == FONT_FAMILY_INDEX || prop == FONT_FOUNDRY_INDEX)
{