Merged from miles@gnu.org--gnu-2005 (patch 682)

Patches applied:

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-682
   Update from CVS

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-490

1 files changed, 29 insertions, 4 deletions

diff --git a/src/lread.c b/src/lread.c
index 236ebebda13..0eb54393482 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1323,7 +1323,18 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
   int count = SPECPDL_INDEX ();
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
   struct buffer *b = 0;
+  int bpos;
   int continue_reading_p;
+  /* Nonzero if reading an entire buffer.  */
+  int whole_buffer = 0;
+  /* 1 on the first time around.  */
+  int first_sexp = 1;
+
+  if (MARKERP (readcharfun))
+    {
+      if (NILP (start))
+        start = readcharfun;    
+    }
 
   if (BUFFERP (readcharfun))
     b = XBUFFER (readcharfun);
@@ -1349,7 +1360,6 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
       if (b != 0 && NILP (b->name))
         error ("Reading from killed buffer");
 
-
       if (!NILP (start))
         {
           /* Switch to the buffer we are reading from.  */
@@ -1364,9 +1374,20 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
 
           /* Set point and ZV around stuff to be read.  */
           Fgoto_char (start);
-          Fnarrow_to_region (make_number (BEGV), end);
+          if (!NILP (end))
+            Fnarrow_to_region (make_number (BEGV), end);
+
+          /* Just for cleanliness, convert END to a marker
+             if it is an integer.  */
+          if (INTEGERP (end))
+            end = Fpoint_max_marker ();
         }
 
+      /* On the first cycle, we can easily test here
+         whether we are reading the whole buffer.  */
+      if (b && first_sexp)
+        whole_buffer = (PT == BEG && ZV == Z);
+
       instream = stream;
     read_next:
       c = READCHAR;
@@ -1416,8 +1437,11 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
 
       if (!NILP (start) && continue_reading_p)
         start = Fpoint_marker ();
+
+      /* Restore saved point and BEGV.  */
       unbind_to (count1, Qnil);
 
+      /* Now eval what we just read.  */
       val = (*evalfun) (val);
 
       if (printflag)
@@ -1428,11 +1452,12 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
           else
             Fprint (val, Qnil);
         }
+
+      first_sexp = 0;
     }
 
   build_load_history (sourcename, 
-                      stream || (INTEGERP (start) && INTEGERP (end)
-                                 && XINT (start) == BEG && XINT (end) == Z));
+                      stream || whole_buffer);
 
   UNGCPRO;