mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy 1992-06-02 05:18:06 +00:00
parent 228d4b1c2c
commit dfdb645c3e
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/dispnew.c
View File

@ -1860,6 +1860,9 @@ sit_for (sec, usec, reading, display)
if (display)
redisplay_preserve_echo_area ();
if (sec == 0 && usec == 0)
return Qt;
#ifdef SIGIO
gobble_input ();
#endif
@ -1907,10 +1910,6 @@ Value is t if waited the full time with no input arriving.")
CHECK_NUMBER (arg, 0);
sec = XINT (arg);
if (sec <= 0)
return Qt;
if (!NILP (millisec))
{
#ifndef EMACS_HAS_USECS

8
src/lread.c
View File

@ -513,21 +513,21 @@ point remains at the end of the last character read from the buffer.")
int count = specpdl_ptr - specpdl;
Lisp_Object tem, buf;
if (NIL_P (bufname))
if (NILP (bufname))
buf = Fcurrent_buffer ();
else
buf = Fget_buffer (bufname);
if (NIL_P (buf))
if (NILP (buf))
error ("No such buffer.");
if (NIL_P (printflag))
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, !NIL_P (printflag));
readevalloop (buf, 0, Feval, !NILP (printflag));
unbind_to (count);
return Qnil;