From: Kenichi Handa <handa@m17n.org>
Date: Fri, 29 Aug 2008 08:04:38 +0000 (+0000)
Subject: (report_file_error): Don't downcase the first character
X-Git-Tag: emacs-pretest-23.0.90~3155
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5443ffda09f105132a18d4c1ee52f01046212b4;p=emacs.git

(report_file_error): Don't downcase the first character
of errstring if it is still unibyte.
---

diff --git a/src/fileio.c b/src/fileio.c
index 8eb1b3a2c87..6b9b9afb47c 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -261,7 +261,8 @@ report_file_error (string, data)
       default:
 	/* System error messages are capitalized.  Downcase the initial
 	   unless it is followed by a slash.  */
-	if (! EQ (Faref (errstring, make_number (1)), make_number ('/')))
+	if (STRING_MULTIBYTE (errstring)
+	    && ! EQ (Faref (errstring, make_number (1)), make_number ('/')))
 	  {
 	    int c;