# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1229426986 0
# Node ID e412b5885b9d6541b5104dbc959c1c81d67cc47a
# Parent  3e9018e11d270eb5761efd980b1ece05404508f9
(font_open_entity): Fix previous change.

diff -r 3e9018e11d27 -r e412b5885b9d src/font.c
--- a/src/font.c	Tue Dec 16 08:10:01 2008 +0000
+++ b/src/font.c	Tue Dec 16 11:29:46 2008 +0000
@@ -2877,13 +2877,14 @@
   Lisp_Object objlist, size, val, font_object;
   struct font *font;
   int min_width, height;
+  int scaled_pixel_size;
 
   font_assert (FONT_ENTITY_P (entity));
   size = AREF (entity, FONT_SIZE_INDEX);
   if (XINT (size) != 0)
-    pixel_size = XINT (size);
+    scaled_pixel_size = pixel_size = XINT (size);
   else if (CONSP (Vface_font_rescale_alist))
-    pixel_size *= font_rescale_ratio (entity);
+    scaled_pixel_size = pixel_size * font_rescale_ratio (entity);
 
   for (objlist = AREF (entity, FONT_OBJLIST_INDEX); CONSP (objlist);
        objlist = XCDR (objlist))
@@ -2898,7 +2899,8 @@
   if (! driver_list)
     return Qnil;
 
-  font_object = driver_list->driver->open (f, entity, pixel_size);
+  font_object = driver_list->driver->open (f, entity, scaled_pixel_size);
+  ASET (font_object, FONT_SIZE_INDEX, make_number (pixel_size));
   font_add_log ("open", entity, font_object);
   if (NILP (font_object))
     return Qnil;