comparison src/fileio.c @ 149:538048ae2ab8 r20-3b1

Import from CVS: tag r20-3b1
author cvs
date Mon, 13 Aug 2007 09:36:16 +0200
parents 9b50b4588a93
children 59463afc5666
comparison
equal deleted inserted replaced
148:f659db2a1f73 149:538048ae2ab8
120 maybe I'll just always protect current_buffer around all of those 120 maybe I'll just always protect current_buffer around all of those
121 calls. */ 121 calls. */
122 122
123 /* mrb: #### Needs to be fixed at a lower level; errstring needs to 123 /* mrb: #### Needs to be fixed at a lower level; errstring needs to
124 be MULEized. The following at least prevents a crash... */ 124 be MULEized. The following at least prevents a crash... */
125 Lisp_Object errstring = build_ext_string (strerror (errno), FORMAT_BINARY); 125 Lisp_Object errstring = build_ext_string (strerror (errno), FORMAT_NATIVE);
126 126
127 /* System error messages are capitalized. Downcase the initial 127 /* System error messages are capitalized. Downcase the initial
128 unless it is followed by a slash. */ 128 unless it is followed by a slash. */
129 if (string_char (XSTRING (errstring), 1) != '/') 129 if (string_char (XSTRING (errstring), 1) != '/')
130 set_string_char (XSTRING (errstring), 0, 130 set_string_char (XSTRING (errstring), 0,