(x_set_font): Avoid C99 mid-block variable declaration.

diff --git a/src/ChangeLog b/src/ChangeLog
index 7d0f307e4a3e7e2471ddaf7b17f29a839ff520a3..a76c86f11951aafee6f6af92e39a4bb6f9598b4a 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2009-04-06  Jason Rumney  <jasonr@gnu.org>
+
+       * frame.c (x_set_font): Avoid C99 mid-block variable declaration.
+
 2009-04-06  Kenichi Handa  <handa@m17n.org>
 
        * ftxfont.c (ftxfont_draw_backgrond): Fix args to XFillRectangle.

diff --git a/src/frame.c b/src/frame.c
index 1a110219e6a3e5d8cec5a68134a54892ba5d9620..80a691e35fde1bf9a1a13eff7402ccae831addfa 100644 (file)
--- a/src/frame.c
+++ b/src/frame.c
@@ -3367,9 +3367,8 @@ x_set_font (f, arg, oldval)
      struct frame *f;
      Lisp_Object arg, oldval;
 {
-  Lisp_Object frame;
+  Lisp_Object frame, font_object, lval;
   int fontset = -1;
-  Lisp_Object font_object;
 
   /* Set the frame parameter back to the old value because we may
      fail to use ARG as the new parameter value.  */
@@ -3427,7 +3426,7 @@ x_set_font (f, arg, oldval)
     return;
 
   
-  Lisp_Object lval = Fassq (Qfullscreen, f->param_alist);
+  lval = Fassq (Qfullscreen, f->param_alist);
   if (CONSP (lval)) lval = CDR (lval);
 
   x_new_font (f, font_object, fontset);