[Emacs-diffs] Changes to emacs/src/lread.c

[Juanma Barranquero]

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.289 emacs/src/lread.c:1.290
*** emacs/src/lread.c:1.289     Sat Jun 22 17:26:08 2002
--- emacs/src/lread.c   Thu Jul 11 10:12:50 2002
***************
*** 660,666 ****
    register FILE *stream;
    register int fd = -1;
    register Lisp_Object lispstream;
!   int count = specpdl_ptr - specpdl;
    Lisp_Object temp;
    struct gcpro gcpro1;
    Lisp_Object found, efound;
--- 660,666 ----
    register FILE *stream;
    register int fd = -1;
    register Lisp_Object lispstream;
!   int count = SPECPDL_INDEX ();
    Lisp_Object temp;
    struct gcpro gcpro1;
    Lisp_Object found, efound;
***************
*** 1271,1277 ****
  {
    register int c;
    register Lisp_Object val;
!   int count = specpdl_ptr - specpdl;
    struct gcpro gcpro1;
    struct buffer *b = 0;
    int continue_reading_p;
--- 1271,1277 ----
  {
    register int c;
    register Lisp_Object val;
!   int count = SPECPDL_INDEX ();
    struct gcpro gcpro1;
    struct buffer *b = 0;
    int continue_reading_p;
***************
*** 1313,1319 ****
  
        if (!NILP (Vpurify_flag) && c == '(')
        {
!         int count1 = specpdl_ptr - specpdl;
          record_unwind_protect (unreadpure, Qnil);
          val = read_list (-1, readcharfun);
          unbind_to (count1, Qnil);
--- 1313,1319 ----
  
        if (!NILP (Vpurify_flag) && c == '(')
        {
!         int count1 = SPECPDL_INDEX ();
          record_unwind_protect (unreadpure, Qnil);
          val = read_list (-1, readcharfun);
          unbind_to (count1, Qnil);
***************
*** 1379,1385 ****
       (buffer, printflag, filename, unibyte, do_allow_print)
       Lisp_Object buffer, printflag, filename, unibyte, do_allow_print;
  {
!   int count = specpdl_ptr - specpdl;
    Lisp_Object tem, buf;
  
    if (NILP (buffer))
--- 1379,1385 ----
       (buffer, printflag, filename, unibyte, do_allow_print)
       Lisp_Object buffer, printflag, filename, unibyte, do_allow_print;
  {
!   int count = SPECPDL_INDEX ();
    Lisp_Object tem, buf;
  
    if (NILP (buffer))
***************
*** 1421,1427 ****
       (start, end, printflag, read_function)
       Lisp_Object start, end, printflag, read_function;
  {
!   int count = specpdl_ptr - specpdl;
    Lisp_Object tem, cbuf;
  
    cbuf = Fcurrent_buffer ();
--- 1421,1427 ----
       (start, end, printflag, read_function)
       Lisp_Object start, end, printflag, read_function;
  {
!   int count = SPECPDL_INDEX ();
    Lisp_Object tem, cbuf;
  
    cbuf = Fcurrent_buffer ();