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

[Richard M . Stallman]

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.334 emacs/src/lread.c:1.335
*** emacs/src/lread.c:1.334     Mon Jul  4 16:06:32 2005
--- emacs/src/lread.c   Sun Jul 10 17:02:49 2005
***************
*** 85,90 ****
--- 85,91 ----
  Lisp_Object Qascii_character, Qload, Qload_file_name;
  Lisp_Object Qbackquote, Qcomma, Qcomma_at, Qcomma_dot, Qfunction;
  Lisp_Object Qinhibit_file_name_operation;
+ Lisp_Object Qeval_buffer_list, Veval_buffer_list;
  
  extern Lisp_Object Qevent_symbol_element_mask;
  extern Lisp_Object Qfile_exists_p;
***************
*** 1452,1457 ****
--- 1453,1459 ----
    if (NILP (filename))
      filename = XBUFFER (buf)->filename;
  
+   specbind (Qeval_buffer_list, Fcons (buf, Veval_buffer_list));
    specbind (Qstandard_output, tem);
    record_unwind_protect (save_excursion_restore, save_excursion_save ());
    BUF_SET_PT (XBUFFER (buf), BUF_BEGV (XBUFFER (buf)));
***************
*** 1487,1492 ****
--- 1489,1495 ----
    else
      tem = printflag;
    specbind (Qstandard_output, tem);
+   specbind (Qeval_buffer_list, Fcons (cbuf, Veval_buffer_list));
  
    /* readevalloop calls functions which check the type of start and end.  */
    readevalloop (cbuf, 0, XBUFFER (cbuf)->filename, Feval,
***************
*** 3961,3966 ****
--- 3964,3973 ----
    Vbytecomp_version_regexp
      = build_string ("^;;;.\\(in Emacs version\\|bytecomp version FSF\\)");
  
+   DEFVAR_LISP ("eval-buffer-list", &Veval_buffer_list,
+              doc: /* List of buffers being read from by calls to 
`eval-buffer' and `eval-region'.  */);
+   Veval_buffer_list = Qnil;
+ 
    /* Vsource_directory was initialized in init_lread.  */
  
    load_descriptor_list = Qnil;
***************
*** 4001,4006 ****
--- 4008,4016 ----
  
    Qload_file_name = intern ("load-file-name");
    staticpro (&Qload_file_name);
+ 
+   Qeval_buffer_list = intern ("eval-buffer-list");
+   staticpro (&Qeval_buffer_list);
  
    staticpro (&dump_path);