Mercurial > hg > xemacs-beta

comparison src/fileio.c @ 609:13e3d7ae7155

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-06-06 12:34:42 by ben] nitpicky fixes: emodules.c, tooltalk.c, process-unix.c: Fix warnings pointed out by Martin. lisp.h: Correct usage of CBufbyte. esd.c: indentation changes. bytecode.c, eval.c, fileio.c: Use CBufbyte instead of char for error/warning functions. linuxplay.c, miscplay.c, sgiplay.c, sunplay.c: Define DONT_ENCAPSULATE. (All encapsulation is removed in my pending Mule workspace.) sgiplay.c: Put back #include <audio.h> accidentally removed. Make play_sound_data return an int, like all other such functions in *play.c. sound.c: Fix up documentation of `play-sound'. sysfile.h: Don't include sys/fcntl.h, as per Martin's advice.
author ben
date Wed, 06 Jun 2001 12:34:47 +0000
parents 5fd7ba8b56e7
children 023b83f4e54b
comparison
equal deleted inserted replaced
608:4d7fdf497470 609:13e3d7ae7155
130 /* DATA can be anything acceptable to signal_error (). 130 /* DATA can be anything acceptable to signal_error ().
131 */ 131 */
132 132
133 DOESNT_RETURN 133 DOESNT_RETURN
134 report_file_type_error (Lisp_Object errtype, Lisp_Object oserrmess, 134 report_file_type_error (Lisp_Object errtype, Lisp_Object oserrmess,
135 const char *string, Lisp_Object data) 135 const CBufbyte *string, Lisp_Object data)
136 { 136 {
137 struct gcpro gcpro1; 137 struct gcpro gcpro1;
138 Lisp_Object errdata = build_error_data (NULL, data); 138 Lisp_Object errdata = build_error_data (NULL, data);
139 139
140 GCPRO1 (errdata); 140 GCPRO1 (errdata);
144 UNGCPRO; /* not reached */ 144 UNGCPRO; /* not reached */
145 } 145 }
146 146
147 DOESNT_RETURN 147 DOESNT_RETURN
148 report_error_with_errno (Lisp_Object errtype, 148 report_error_with_errno (Lisp_Object errtype,
149 const char *string, Lisp_Object data) 149 const CBufbyte *string, Lisp_Object data)
150 { 150 {
151 report_file_type_error (errtype, lisp_strerror (errno), string, data); 151 report_file_type_error (errtype, lisp_strerror (errno), string, data);
152 } 152 }
153 153
154 /* signal a file error when errno contains a meaningful value. */ 154 /* signal a file error when errno contains a meaningful value. */
155 155
156 DOESNT_RETURN 156 DOESNT_RETURN
157 report_file_error (const char *string, Lisp_Object data) 157 report_file_error (const CBufbyte *string, Lisp_Object data)
158 { 158 {
159 report_error_with_errno (Qfile_error, string, data); 159 report_error_with_errno (Qfile_error, string, data);
160 } 160 }
161 161
162 162