[Emacs-diffs] Changes to emacs/src/font.c,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   08/05/31 09:57:38

Index: font.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/font.c,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -b -r1.32 -r1.33
--- font.c      30 May 2008 13:21:33 -0000      1.32
+++ font.c      31 May 2008 09:57:37 -0000      1.33
@@ -2441,6 +2441,8 @@
        Lisp_Object cache = font_get_cache (f, driver_list->driver);
        Lisp_Object tail = alternate_familes;
 
+       ASET (scratch_font_spec, FONT_TYPE_INDEX, driver_list->driver->type);
+       ASET (scratch_font_spec, FONT_FAMILY_INDEX, family);
        while (1)
          {
            val = assoc_no_quit (scratch_font_spec, XCDR (cache));
@@ -2452,6 +2454,7 @@
 
                val = driver_list->driver->list (frame, scratch_font_spec);
                copy = Fcopy_font_spec (scratch_font_spec);
+               ASET (copy, FONT_TYPE_INDEX, driver_list->driver->type);
                XSETCDR (cache, Fcons (Fcons (copy, val), XCDR (cache)));
              }
            if (! NILP (val) && need_filtering)