Don't overflow if computing approximate percentage

[gnu-emacs] / src / lread.c

diff --git a/src/lread.c b/src/lread.c
index 26c19d8338b71a60f1cdf9c67e8f867f2fa0a8ca..11c8d0031c964d8825c225e3dc732cbf5f42461b 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -4418,9 +4418,10 @@ init_lread (void)
 void
 dir_warning (char const *use, Lisp_Object dirname)
 {
-  static char const format[] = "Warning: %s `%s': %s\n";
+  static char const format[] = "Warning: %s '%s': %s\n";
   int access_errno = errno;
-  fprintf (stderr, format, use, SSDATA (dirname), strerror (access_errno));
+  fprintf (stderr, format, use, SSDATA (ENCODE_SYSTEM (dirname)),
+          strerror (access_errno));
 
   /* Don't log the warning before we've initialized!!  */
   if (initialized)