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

[Lute Kamstra]

Index: emacs/src/print.c
diff -c emacs/src/print.c:1.208 emacs/src/print.c:1.209
*** emacs/src/print.c:1.208     Tue Nov  9 13:24:35 2004
--- emacs/src/print.c   Sat Apr  9 08:42:30 2005
***************
*** 1,6 ****
  /* Lisp object printing and output streams.
!    Copyright (C) 1985, 86, 88, 93, 94, 95, 97, 98, 1999, 2000, 01, 03, 2004
!       Free Software Foundation, Inc.
  
  This file is part of GNU Emacs.
  
--- 1,6 ----
  /* Lisp object printing and output streams.
!    Copyright (C) 1985, 1986, 1988, 1993, 1994, 1995, 1997, 1998, 1999,
!      2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc.
  
  This file is part of GNU Emacs.
  
***************
*** 211,223 ****
       }                                                                        
\
     if (MARKERP (printcharfun))                                                
\
       {                                                                        
\
!        if (!(XMARKER (original)->buffer))                             \
           error ("Marker does not point anywhere");                    \
!        if (XMARKER (original)->buffer != current_buffer)              \
!          set_buffer_internal (XMARKER (original)->buffer);            \
         old_point = PT;                                                        
\
         old_point_byte = PT_BYTE;                                      \
!        SET_PT_BOTH (marker_position (printcharfun),                   \
                    marker_byte_position (printcharfun));               \
         start_point = PT;                                              \
         start_point_byte = PT_BYTE;                                    \
--- 211,227 ----
       }                                                                        
\
     if (MARKERP (printcharfun))                                                
\
       {                                                                        
\
!        EMACS_INT marker_pos;                                          \
!        if (!(XMARKER (printcharfun)->buffer))                         \
           error ("Marker does not point anywhere");                    \
!        if (XMARKER (printcharfun)->buffer != current_buffer)          \
!          set_buffer_internal (XMARKER (printcharfun)->buffer);                
\
!        marker_pos = marker_position (printcharfun);                   \
!        if (marker_pos < BEGV || marker_pos > ZV)                      \
!        error ("Marker is outside the accessible part of the buffer"); \
         old_point = PT;                                                        
\
         old_point_byte = PT_BYTE;                                      \
!        SET_PT_BOTH (marker_pos,                                               
\
                    marker_byte_position (printcharfun));               \
         start_point = PT;                                              \
         start_point_byte = PT_BYTE;                                    \