From 7a6f7feaec2fce4366e34059ae57ce1881f38677 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 19 Dec 2009 09:57:22 +0000 Subject: [PATCH] (Fclear_font_cache): Pass correct cache argument to font_clear_cache. --- src/ChangeLog | 5 +++++ src/font.c | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 0e1e60a25cc..efde5769673 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2009-12-19 Andreas Schwab + + * font.c (Fclear_font_cache): Pass correct cache argument to + font_clear_cache. + 2009-12-16 Andreas Schwab * Makefile.in (prefix-args${EXEEXT}): Don't compile prefix-args.c diff --git a/src/font.c b/src/font.c index e9ae85a9766..3a8f73a6b03 100644 --- a/src/font.c +++ b/src/font.c @@ -4479,15 +4479,15 @@ DEFUN ("clear-font-cache", Fclear_font_cache, Sclear_font_cache, 0, 0, 0, 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)); -- 2.39.5