From c0c58994b1aa78289884525e4e3ae8b8e64d0c08 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Cl=C3=A9ment=20Pit--Claudel?= Date: Sat, 18 Jul 2015 04:13:07 -0700 Subject: [PATCH] Draft of a fix for #21028 --- src/font.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/font.c b/src/font.c index 50b966e..5cdde71 100644 --- a/src/font.c +++ b/src/font.c @@ -2779,12 +2779,12 @@ font_list_entities (struct frame *f, Lisp_Object spec) val = driver_list->driver->list (f, scratch_font_spec); if (!NILP (val)) { - Lisp_Object copy = copy_font_spec (scratch_font_spec); - val = Fvconcat (1, &val); - ASET (copy, FONT_TYPE_INDEX, driver_list->driver->type); - XSETCDR (cache, Fcons (Fcons (copy, val), XCDR (cache))); } + + Lisp_Object copy = copy_font_spec (scratch_font_spec); + ASET (copy, FONT_TYPE_INDEX, driver_list->driver->type); + XSETCDR (cache, Fcons (Fcons (copy, val), XCDR (cache))); } if (VECTORP (val) && ASIZE (val) > 0 && (need_filtering -- 2.4.6