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

[Juanma Barranquero]

Index: emacs/src/print.c
diff -c emacs/src/print.c:1.176 emacs/src/print.c:1.177
*** emacs/src/print.c:1.176     Mon Jun 24 17:33:18 2002
--- emacs/src/print.c   Thu Jul 11 10:14:17 2002
***************
*** 192,198 ****
     struct buffer *old = current_buffer;                                       
\
     int old_point = -1, start_point = -1;                              \
     int old_point_byte = -1, start_point_byte = -1;                    \
!    int specpdl_count = specpdl_ptr - specpdl;                         \
     int free_print_buffer = 0;                                         \
     int multibyte = !NILP (current_buffer->enable_multibyte_characters);       
\
     Lisp_Object original
--- 192,198 ----
     struct buffer *old = current_buffer;                                       
\
     int old_point = -1, start_point = -1;                              \
     int old_point_byte = -1, start_point_byte = -1;                    \
!    int specpdl_count = SPECPDL_INDEX ();                              \
     int free_print_buffer = 0;                                         \
     int multibyte = !NILP (current_buffer->enable_multibyte_characters);       
\
     Lisp_Object original
***************
*** 580,586 ****
  temp_output_buffer_setup (bufname)
      char *bufname;
  {
!   int count = specpdl_ptr - specpdl;
    register struct buffer *old = current_buffer;
    register Lisp_Object buf;
  
--- 580,586 ----
  temp_output_buffer_setup (bufname)
      char *bufname;
  {
!   int count = SPECPDL_INDEX ();
    register struct buffer *old = current_buffer;
    register Lisp_Object buf;
  
***************
*** 613,619 ****
       Lisp_Object (*function) P_ ((Lisp_Object));
       Lisp_Object args;
  {
!   int count = specpdl_ptr - specpdl;
    Lisp_Object buf, val;
    struct gcpro gcpro1;
  
--- 613,619 ----
       Lisp_Object (*function) P_ ((Lisp_Object));
       Lisp_Object args;
  {
!   int count = SPECPDL_INDEX ();
    Lisp_Object buf, val;
    struct gcpro gcpro1;
  
***************
*** 658,664 ****
  {
    struct gcpro gcpro1;
    Lisp_Object name;
!   int count = specpdl_ptr - specpdl;
    Lisp_Object buf, val;
  
    GCPRO1(args);
--- 658,664 ----
  {
    struct gcpro gcpro1;
    Lisp_Object name;
!   int count = SPECPDL_INDEX ();
    Lisp_Object buf, val;
  
    GCPRO1(args);