# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1210768079 0
# Node ID e87ef440216b49beb6a90da82128631a255b0779
# Parent  ed0e1a85ef56d8039686038d48fb333749204745
(font_clear_cache): Check if the cached vector of entities is nil
or not.

diff -r ed0e1a85ef56 -r e87ef440216b src/font.c
--- a/src/font.c	Wed May 14 11:46:24 2008 +0000
+++ b/src/font.c	Wed May 14 12:27:59 2008 +0000
@@ -2237,7 +2237,7 @@
   for (tail = XCDR (XCDR (cache)); CONSP (tail); tail = XCDR (tail))
     {
       elt = XCAR (tail);
-      if (CONSP (elt) && FONT_SPEC_P (XCAR (elt)))
+      if (CONSP (elt) && FONT_SPEC_P (XCAR (elt)) && VECTORP (XCDR (elt)))
 	{
 	  Lisp_Object vec = XCDR (elt);
 	  int i;