Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
dfdb645c
Commit
dfdb645c
authored
Jun 02, 1992
by
Jim Blandy
Browse files
*** empty log message ***
parent
228d4b1c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
8 deletions
+7
-8
src/dispnew.c
src/dispnew.c
+3
-4
src/lread.c
src/lread.c
+4
-4
No files found.
src/dispnew.c
View file @
dfdb645c
...
...
@@ -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
...
...
src/lread.c
View file @
dfdb645c
...
...
@@ -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
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment