/[emacs]/emacs/src/lread.c
ViewVC logotype

Diff of /emacs/src/lread.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.317.2.5 by miles, Fri Nov 12 02:52:55 2004 UTC revision 1.317.2.6 by miles, Wed Dec 8 05:02:18 2004 UTC
# Line 1  Line 1 
1  /* Lisp parsing and input streams.  /* Lisp parsing and input streams.
2     Copyright (C) 1985,86,87,88,89,93,94,95,97,98,99,2000,01,03,2004     Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995, 1997, 1998,
3        Free Software Foundation, Inc.       1999, 2000, 2001, 2003, 2004  Free Software Foundation, Inc.
4    
5  This file is part of GNU Emacs.  This file is part of GNU Emacs.
6    
# Line 484  readbyte_from_file (c, readcharfun) Line 484  readbyte_from_file (c, readcharfun)
484    
485    c = getc (instream);    c = getc (instream);
486  #ifdef EINTR  #ifdef EINTR
487    /* Interrupted reads have been observed while reading over the network */        /* Interrupted reads have been observed while reading over the network */
488    while (c == EOF && ferror (instream) && errno == EINTR)        while (c == EOF && ferror (instream) && errno == EINTR)
489      {          {
490        clearerr (instream);            QUIT;
491        c = getc (instream);            clearerr (instream);
492      }            c = getc (instream);
493            }
494  #endif  #endif
495    return (c == EOF ? -1 : c);    return (c == EOF ? -1 : c);
496  }  }
# Line 3414  oblookup (obarray, ptr, size, size_byte) Line 3415  oblookup (obarray, ptr, size, size_byte)
3415    hash %= obsize;    hash %= obsize;
3416    bucket = XVECTOR (obarray)->contents[hash];    bucket = XVECTOR (obarray)->contents[hash];
3417    oblookup_last_bucket_number = hash;    oblookup_last_bucket_number = hash;
3418    if (XFASTINT (bucket) == 0)    if (EQ (bucket, make_number (0)))
3419      ;      ;
3420    else if (!SYMBOLP (bucket))    else if (!SYMBOLP (bucket))
3421      error ("Bad data in guts of obarray"); /* Like CADR error message */      error ("Bad data in guts of obarray"); /* Like CADR error message */

Legend:
Removed from v.1.317.2.5  
changed lines
  Added in v.1.317.2.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26