(load_warn_old_style_backquotes): Fix up array size typo.

diff --git a/src/ChangeLog b/src/ChangeLog
index b2d065e13fb0e0a74a4a6d607bcbf65824717fb8..bf4629774e4785df54256079306ac96f94258772 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2007-08-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * lread.c (load_warn_old_style_backquotes): Fix up array size typo.
+
 2007-08-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * lread.c (Qold_style_backquotes): New var.

diff --git a/src/lread.c b/src/lread.c
index 20eafbcd5eea5baf25fd8d03fc973cf5f4be9b84..be2d3a77cf53b0bc9aea803860cefc271d9a2dab 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -705,8 +705,8 @@ load_warn_old_style_backquotes (file)
 {
   if (!NILP (Vold_style_backquotes))
     {
-      Lisp_Object args[1];
-      args[0] = build_string ("!! File %s uses old-style backquotes !!");
+      Lisp_Object args[2];
+b      args[0] = build_string ("!! File %s uses old-style backquotes !!");
       args[1] = file;
       Fmessage (2, args);
     }