if (driver_list->on)
{
Lisp_Object cache = driver_list->driver->get_cache (f);
- Lisp_Object val;
+ Lisp_Object val, tmp;
val = XCDR (cache);
while (! NILP (val)
&& ! EQ (XCAR (XCAR (val)), driver_list->driver->type))
val = XCDR (val);
font_assert (! NILP (val));
- val = XCDR (XCAR (val));
- if (XINT (XCAR (val)) == 0)
+ tmp = XCDR (XCAR (val));
+ if (XINT (XCAR (tmp)) == 0)
{
font_clear_cache (f, XCAR (val), driver_list->driver);
XSETCDR (cache, XCDR (val));