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

[Richard M. Stallman]

Index: emacs/src/lread.c
diff -u emacs/src/lread.c:1.344 emacs/src/lread.c:1.345
--- emacs/src/lread.c:1.344     Thu Dec  8 17:43:52 2005
+++ emacs/src/lread.c   Wed Dec 28 03:44:28 2005
@@ -1344,10 +1344,20 @@
       if (b != 0 && NILP (b->name))
        error ("Reading from killed buffer");
 
+
       if (!NILP (start))
        {
+         /* Switch to the buffer we are reading from.  */
+         record_unwind_protect (save_excursion_restore, save_excursion_save 
());
+         set_buffer_internal (b);
+
+         /* Save point in it.  */
          record_unwind_protect (save_excursion_restore, save_excursion_save 
());
+         /* Save ZV in it.  */
          record_unwind_protect (save_restriction_restore, 
save_restriction_save ());
+         /* Those get unbound after we read one expression.  */
+
+         /* Set point and ZV around stuff to be read.  */
          Fgoto_char (start);
          Fnarrow_to_region (make_number (BEGV), end);
        }