(font_unparse_fcname): Fix use of uninitialized variable.

diff --git a/src/ChangeLog b/src/ChangeLog
index c7e9a9cc45736b2c098116120e43c8f39e950cf5..8a4f81dd845147e6a8b967b10d2506874220dc55 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2008-12-02  Andreas Schwab  <schwab@suse.de>
 
+       * font.c (font_unparse_fcname): Fix use of uninitialized variable.
+
        * doprnt.c (doprnt1): Fix size of charbuf.
 
 2008-12-02  Chong Yidong  <cyd@stupidchicken.com>

diff --git a/src/font.c b/src/font.c
index ccac5af3fd874fda69505cc5e46ce562e6ddb1b1..ce7091313f633ee3f7f4b48419f63f7bb40dd6f1 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -1598,7 +1598,6 @@ font_unparse_fcname (font, pixel_size, name, nbytes)
   Lisp_Object family, foundry;
   Lisp_Object tail, val;
   int point_size;
-  int dpi;
   int i, len = 1;
   char *p;
   Lisp_Object styles[3];
@@ -1653,7 +1652,7 @@ font_unparse_fcname (font, pixel_size, name, nbytes)
     }
 
   if (INTEGERP (AREF (font, FONT_DPI_INDEX)))
-    len += sprintf (work, ":dpi=%d", dpi);
+    len += sprintf (work, ":dpi=%d", XINT (AREF (font, FONT_DPI_INDEX)));
   if (INTEGERP (AREF (font, FONT_SPACING_INDEX)))
     len += strlen (":spacing=100");
   if (INTEGERP (AREF (font, FONT_AVGWIDTH_INDEX)))