From 8096a0ff8c8ef167d993ae1582280a22493adbc5 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Tue, 1 Dec 2009 09:07:36 +0000 Subject: [PATCH] (font_load_for_lface, font_open_by_name): Don't store name if entity is Qnil. --- src/ChangeLog | 5 +++++ src/font.c | 10 +++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 4d539a3086..bfd3e833d1 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2009-12-01 YAMAMOTO Mitsuharu + + * font.c (font_load_for_lface, font_open_by_name): Don't store name + if entity is Qnil. + 2009-11-30 Stefan Monnier * print.c (print_preprocess): Preprocess the key_and_value table of diff --git a/src/font.c b/src/font.c index 061b6086ac..a72e221595 100644 --- a/src/font.c +++ b/src/font.c @@ -3537,8 +3537,11 @@ font_load_for_lface (f, attrs, spec) it to re-apply the font when font parameters (like hinting or dpi) have changed. */ entity = font_open_for_lface (f, entity, attrs, spec); - name = Ffont_get (spec, QCname); - if (STRINGP (name)) font_put_extra (entity, QCname, name); + if (!NILP (entity)) + { + name = Ffont_get (spec, QCname); + if (STRINGP (name)) font_put_extra (entity, QCname, name); + } return entity; } @@ -3610,7 +3613,8 @@ font_open_by_name (f, name) spec = Ffont_spec (2, args); ret = font_open_by_spec (f, spec); /* Do not loose name originally put in. */ - font_put_extra (ret, QCname, args[1]); + if (!NILP (ret)) + font_put_extra (ret, QCname, args[1]); return ret; } -- 2.20.1