# HG changeset patch
# User Andreas Schwab <schwab@linux-m68k.org>
# Date 1261216642 0
# Node ID 431b202f351d91c032759f7580bbdecae5659452
# Parent  78f92ffeb7ab731efb70d2ca5ed77d9364b50532
(Fclear_font_cache): Pass correct cache argument to
font_clear_cache.

diff -r 78f92ffeb7ab -r 431b202f351d src/ChangeLog
--- a/src/ChangeLog	Fri Dec 18 19:35:14 2009 +0000
+++ b/src/ChangeLog	Sat Dec 19 09:57:22 2009 +0000
@@ -1,3 +1,8 @@
+2009-12-19  Andreas Schwab  <schwab@linux-m68k.org>
+
+	* font.c (Fclear_font_cache): Pass correct cache argument to
+	font_clear_cache.
+
 2009-12-16  Andreas Schwab  <schwab@linux-m68k.org>
 
 	* Makefile.in (prefix-args${EXEEXT}): Don't compile prefix-args.c
diff -r 78f92ffeb7ab -r 431b202f351d src/font.c
--- a/src/font.c	Fri Dec 18 19:35:14 2009 +0000
+++ b/src/font.c	Sat Dec 19 09:57:22 2009 +0000
@@ -4479,15 +4479,15 @@
 	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));