comparison src/lread.c @ 673:6217fa6e2cab

*** empty log message ***

672:f81a3cf6ec22

     Lisp_Object bufname, printflag;
{
  int count = specpdl_ptr - specpdl;
  Lisp_Object tem, buf;

  if (NIL_P (bufname))
    buf = Fcurrent_buffer ();
  else
    buf = Fget_buffer (bufname);
  if (NIL_P (buf))
    error ("No such buffer.");

  if (NIL_P (printflag))
    tem = Qsymbolp;
  else
    tem = printflag;
  specbind (Qstandard_output, tem);
  record_unwind_protect (save_excursion_restore, save_excursion_save ());
  BUF_SET_PT (XBUFFER (buf), BUF_BEGV (XBUFFER (buf)));
  readevalloop (buf, 0, Feval, !NIL_P (printflag));
  unbind_to (count);

  return Qnil;
}

673:6217fa6e2cab

     Lisp_Object bufname, printflag;
{
  int count = specpdl_ptr - specpdl;
  Lisp_Object tem, buf;

  if (NILP (bufname))
    buf = Fcurrent_buffer ();
  else
    buf = Fget_buffer (bufname);
  if (NILP (buf))
    error ("No such buffer.");

  if (NILP (printflag))
    tem = Qsymbolp;
  else
    tem = printflag;
  specbind (Qstandard_output, tem);
  record_unwind_protect (save_excursion_restore, save_excursion_save ());
  BUF_SET_PT (XBUFFER (buf), BUF_BEGV (XBUFFER (buf)));
  readevalloop (buf, 0, Feval, !NILP (printflag));
  unbind_to (count);

  return Qnil;
}