(load_warn_old_style_backquotes): Change message to look

better when it appears in the middle of byte-compiler messages.

diff --git a/src/ChangeLog b/src/ChangeLog
index 6b31cebce49c5b8e0cfc375550a69a44801e7b81..3a023d95d6dea48c0b07e78f4d98daa569dffc76 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * lread.c (load_warn_old_style_backquotes): Change message to look
+       better when it appears in the middle of byte-compiler messages.
+
 2007-09-10  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * s/darwin.h (MULTI_KBOARD): Only define for Carbon.

diff --git a/src/lread.c b/src/lread.c
index e8ff0ee63df358e358a7c18e1b1fe45357f6156d..a4bb0fa589970b18bfb2958ee370be5ea1184b8f 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -708,7 +708,7 @@ load_warn_old_style_backquotes (file)
   if (!NILP (Vold_style_backquotes))
     {
       Lisp_Object args[2];
-      args[0] = build_string ("!! File %s uses old-style backquotes !!");
+      args[0] = build_string ("Loading `%s': old-style backquotes detected!");
       args[1] = file;
       Fmessage (2, args);
     }