Mercurial > hg > xemacs-beta

comparison src/lread.c @ 558:ed498ef2108b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-23 09:59:33 by ben] xemacs.mak: call `ver' to get the exact os version and put it in the installation; suggestion from adrian. behavior-defs.el: Add scroll-in-place, jka-compr, efs, fix up some things. pop.c: Remove BROKEN_CYGWIN. etc\sample.init.el: Rewrite to be much more careful about loading features -- now it decays gracefully even in the complete absence of packages. Also avoid doing obnoxious things when loading efs. configure.in: add some support for eventually turning on file coding by default. Fix numerous places where AC_MSG_WARN had quotes around its arg, which is bad. Replace with []. Same for AC_MSG_ERROR. s\cygwin32.h, s\mingw32.h: remove support for way old beta versions of cygwin. don't put -Wno-sign-compare in the system switches; this isn't a system issue. define BROKEN_SIGIO for cygwin to get C-g support. device-msw.c: signal an error rather than crash with an unavailable network printer (from Mike Alexander). event-msw.c: cleanup headers. fix (hopefully) an error with data corruption when sending to a network connection. fileio.c: Fix evil code that attempts to handle the ~user prefix by (a) always assuming we're referencing ourselves and not even verifying the user -- hence any file with a tilde as its first char is invalid! (b) if there wasn't a slash following the filename, the pointer was set *past* the end of file and we started reading from uninitialized memory. Now we simply treat these as files, always. optionally for 21.4 (doc fix): lread.c: cambia de pas_de_lache_ici -- al minimo usa la palabra certa. frame.c: fix warnings. emacs.c, nt.c, ntproc.c, process-nt.c, realpath.c, unexnt.c: rename MAX_PATH to standard PATH_MAX. process-nt.c, realpath.c: cleanup headers. process-unix.c, sysdep.c, systime.h, syswindows.h: kill BROKEN_CYGWIN and support for way old beta versions of cygwin. sysfile.h: use _MAX_PATH (Windows) preferentially for PATH_MAX if defined. include io.h on Cygwin (we need get_osfhandle()). include sys/fcntl.h always, since we were including it in various header files anyway. unexcw.c: fix up style to conform to standard. remove duplicate definition of PERROR. buffer.c: comment change. database.c, debug.h, device-tty.c, dired-msw.c, glyphs-msw.c: header cleanups (remove places that directly include a system header file, because we have our own layer to do this more cleanly and portably); indentation fixes.
author ben
date Wed, 23 May 2001 09:59:48 +0000
parents e7ef97881643
children 183866b06e0b
comparison
equal deleted inserted replaced
557:f486da5f1a3b 558:ed498ef2108b
419 XVECTOR_DATA (vector)[i] = el; 419 XVECTOR_DATA (vector)[i] = el;
420 } 420 }
421 } 421 }
422 422
423 static Lisp_Object 423 static Lisp_Object
424 pas_de_lache_ici (int fd, Lisp_Object victim) 424 pas_de_holgazan_ici (int fd, Lisp_Object victim)
425 { 425 {
426 Lisp_Object tem; 426 Lisp_Object tem;
427 EMACS_INT pos; 427 EMACS_INT pos;
428 428
429 if (!INTP (XCDR (victim))) 429 if (!INTP (XCDR (victim)))
454 Lisp_Object john = Fcar (tail); 454 Lisp_Object john = Fcar (tail);
455 if (CONSP (john)) 455 if (CONSP (john))
456 { 456 {
457 assert (CONSP (XCAR (john))); 457 assert (CONSP (XCAR (john)));
458 assert (!purify_flag); /* should have been handled in read_list() */ 458 assert (!purify_flag); /* should have been handled in read_list() */
459 XCAR (john) = pas_de_lache_ici (fd, XCAR (john)); 459 XCAR (john) = pas_de_holgazan_ici (fd, XCAR (john));
460 } 460 }
461 else 461 else
462 { 462 {
463 Lisp_Object doc; 463 Lisp_Object doc;
464 464
465 assert (COMPILED_FUNCTIONP (john)); 465 assert (COMPILED_FUNCTIONP (john));
466 if (CONSP (XCOMPILED_FUNCTION (john)->instructions)) 466 if (CONSP (XCOMPILED_FUNCTION (john)->instructions))
467 { 467 {
468 struct gcpro ngcpro1; 468 struct gcpro ngcpro1;
469 Lisp_Object juan = (pas_de_lache_ici 469 Lisp_Object juan = (pas_de_holgazan_ici
470 (fd, XCOMPILED_FUNCTION (john)->instructions)); 470 (fd, XCOMPILED_FUNCTION (john)->instructions));
471 Lisp_Object ivan; 471 Lisp_Object ivan;
472 472
473 NGCPRO1 (juan); 473 NGCPRO1 (juan);
474 ivan = Fread (juan); 474 ivan = Fread (juan);
485 doc = compiled_function_documentation (XCOMPILED_FUNCTION (john)); 485 doc = compiled_function_documentation (XCOMPILED_FUNCTION (john));
486 if (CONSP (doc)) 486 if (CONSP (doc))
487 { 487 {
488 assert (!purify_flag); /* should have been handled in 488 assert (!purify_flag); /* should have been handled in
489 read_compiled_function() */ 489 read_compiled_function() */
490 doc = pas_de_lache_ici (fd, doc); 490 doc = pas_de_holgazan_ici (fd, doc);
491 set_compiled_function_documentation (XCOMPILED_FUNCTION (john), 491 set_compiled_function_documentation (XCOMPILED_FUNCTION (john),
492 doc); 492 doc);
493 } 493 }
494 } 494 }
495 } 495 }