Mercurial > hg > xemacs-beta

comparison src/fileio.c @ 50:ee648375d8d6 r19-16b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b91
author cvs
date Mon, 13 Aug 2007 08:56:41 +0200
parents 56c54cf7c5b6
children 131b0175ea99
comparison
equal deleted inserted replaced
49:b46643e427ac 50:ee648375d8d6
121 be MULEized. The following at least prevents a crash... */ 121 be MULEized. The following at least prevents a crash... */
122 Lisp_Object errstring = build_ext_string (strerror (errno), FORMAT_BINARY); 122 Lisp_Object errstring = build_ext_string (strerror (errno), FORMAT_BINARY);
123 123
124 /* System error messages are capitalized. Downcase the initial 124 /* System error messages are capitalized. Downcase the initial
125 unless it is followed by a slash. */ 125 unless it is followed by a slash. */
126 if (string_char (XSTRING (errstring), 1) != '/') 126 if (string_char_length (XSTRING (errstring)) >= 2
127 && string_char (XSTRING (errstring), 1) != '/')
127 set_string_char (XSTRING (errstring), 0, 128 set_string_char (XSTRING (errstring), 0,
128 DOWNCASE (current_buffer, 129 DOWNCASE (current_buffer,
129 string_char (XSTRING (errstring), 0))); 130 string_char (XSTRING (errstring), 0)));
130 131
131 signal_error (Qfile_error, 132 signal_error (Qfile_error,