mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 05:01:02 -08:00
Code Issues Projects Releases Wiki Activity

Change font_put_extra value for property removal from Qnil to Qunbound

Browse source 
* font.c (font_put_extra): If VAL is Qunbound, delete the slot for PROP from
the list of extra properties.  Previous value Qnil is valid as boolean.
(font_clear_prop): Changed argument of font_put_extra for property removal.
This commit is contained in:
YAMAMOTO Mitsuharu 2019-06-20 12:12:01 +09:00
parent 0701634aa7
commit fdbbbf94a5
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/font.c
View file

@ -710,7 +710,9 @@ font_prop_validate (int idx, Lisp_Object prop, Lisp_Object val)
/* Store VAL as a value of extra font property PROP in FONT while
keeping the sorting order. Don't check the validity of VAL. */
keeping the sorting order. Don't check the validity of VAL. If
VAL is Qunbound, delete the slot for PROP from the list of extra
properties. */
Lisp_Object
font_put_extra (Lisp_Object font, Lisp_Object prop, Lisp_Object val)
@ -722,6 +724,8 @@ font_put_extra (Lisp_Object font, Lisp_Object prop, Lisp_Object val)
{
Lisp_Object prev = Qnil;
if (EQ (val, Qunbound))
return val;
while (CONSP (extra)
&& NILP (Fstring_lessp (prop, XCAR (XCAR (extra)))))
prev = extra, extra = XCDR (extra);
@ -734,7 +738,7 @@ font_put_extra (Lisp_Object font, Lisp_Object prop, Lisp_Object val)
return val;
}
XSETCDR (slot, val);
if (NILP (val))
if (EQ (val, Qunbound))
ASET (font, FONT_EXTRA_INDEX, Fdelq (slot, extra));
return val;
}
@ -3055,7 +3059,7 @@ font_clear_prop (Lisp_Object *attrs, enum font_property_index prop)
if (! NILP (Ffont_get (font, QCname)))
{
font = copy_font_spec (font);
font_put_extra (font, QCname, Qnil);
font_put_extra (font, QCname, Qunbound);
}
if (NILP (AREF (font, prop))