mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-11 05:51:21 -08:00
Code Issues Projects Releases Wiki Activity

(Fclear_font_cache): Pass correct cache argument to

Browse source 
font_clear_cache.
This commit is contained in:
Andreas Schwab 2009-12-19 09:57:22 +00:00
parent 6fe539d246
commit 7a6f7feaec
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -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

6
src/font.c
View file

@ -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));