Mercurial > hg > xemacs-beta

comparison src/lread.c @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents a86b2b5e0111
children de805c49cfc1
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
257 { 257 {
258 Emchar c = Lstream_get_emchar (XLSTREAM (readcharfun)); 258 Emchar c = Lstream_get_emchar (XLSTREAM (readcharfun));
259 #ifdef DEBUG_XEMACS /* testing Mule */ 259 #ifdef DEBUG_XEMACS /* testing Mule */
260 static int testing_mule = 0; /* Change via debugger */ 260 static int testing_mule = 0; /* Change via debugger */
261 if (testing_mule) { 261 if (testing_mule) {
262 if (c >= 0x20 && c <= 0x7E) fprintf (stderr, "%c", c); 262 if (c >= 0x20 && c <= 0x7E) stderr_out ("%c", c);
263 else if (c == '\n') fprintf (stderr, "\\n\n"); 263 else if (c == '\n') stderr_out ("\\n\n");
264 else fprintf (stderr, "\\%o ", c); 264 else stderr_out ("\\%o ", c);
265 } 265 }
266 #endif 266 #endif
267 return c; 267 return c;
268 } 268 }
269 else if (MARKERP (readcharfun)) 269 else if (MARKERP (readcharfun))