Mercurial > hg > xemacs-beta

comparison src/lread.c @ 3439:d1754e7f0cea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-06-03 17:50:39 by aidan] Just-in-time Unicode code point support.
author aidan
date Sat, 03 Jun 2006 17:51:06 +0000
parents 84ee3ca77e7f
children c136144fe765
comparison
equal deleted inserted replaced
3438:14fbcab7c67b 3439:d1754e7f0cea
32 #include "elhash.h" 32 #include "elhash.h"
33 #include "file-coding.h" 33 #include "file-coding.h"
34 #include "lstream.h" 34 #include "lstream.h"
35 #include "opaque.h" 35 #include "opaque.h"
36 #include "profile.h" 36 #include "profile.h"
37 #include "charset.h" /* For Funicode_to_char. */
37 38
38 #include "sysfile.h" 39 #include "sysfile.h"
39 #include "sysfloat.h" 40 #include "sysfloat.h"
40 #ifdef WIN32_NATIVE 41 #ifdef WIN32_NATIVE
41 #include "syswindows.h" 42 #include "syswindows.h"
205 static int saved_doc_string_position; 206 static int saved_doc_string_position;
206 #endif 207 #endif
207 208
208 static int locate_file_open_or_access_file (Ibyte *fn, int access_mode); 209 static int locate_file_open_or_access_file (Ibyte *fn, int access_mode);
209 EXFUN (Fread_from_string, 3); 210 EXFUN (Fread_from_string, 3);
210
211 EXFUN (Funicode_to_char, 2); /* In unicode.c. */
212 211
213 /* When errors are signaled, the actual readcharfun should not be used 212 /* When errors are signaled, the actual readcharfun should not be used
214 as an argument if it is an lstream, so that lstreams don't escape 213 as an argument if it is an lstream, so that lstreams don't escape
215 to the Lisp level. */ 214 to the Lisp level. */
216 #define READCHARFUN_MAYBE(x) (LSTREAMP (x) \ 215 #define READCHARFUN_MAYBE(x) (LSTREAMP (x) \