Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5be02dff
Commit
5be02dff
authored
Jul 17, 1995
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fread): Rename arg READCHARFUN to STREAM.
parent
0e7078f5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
10 deletions
+10
-10
src/lread.c
src/lread.c
+10
-10
No files found.
src/lread.c
View file @
5be02dff
...
...
@@ -889,27 +889,27 @@ STREAM or the value of `standard-input' may be:\n\
call it with a char as argument to push a char back)
\n
\
a string (takes text from string, starting at the beginning)
\n
\
t (read text line using minibuffer and use it)."
)
(
rea
dcharfun
)
Lisp_Object
rea
dcharfun
;
(
st
rea
m
)
Lisp_Object
st
rea
m
;
{
extern
Lisp_Object
Fread_minibuffer
();
if
(
NILP
(
rea
dcharfun
))
rea
dcharfun
=
Vstandard_input
;
if
(
EQ
(
rea
dcharfun
,
Qt
))
rea
dcharfun
=
Qread_char
;
if
(
NILP
(
st
rea
m
))
st
rea
m
=
Vstandard_input
;
if
(
EQ
(
st
rea
m
,
Qt
))
st
rea
m
=
Qread_char
;
new_backquote_flag
=
0
;
#ifndef standalone
if
(
EQ
(
rea
dcharfun
,
Qread_char
))
if
(
EQ
(
st
rea
m
,
Qread_char
))
return
Fread_minibuffer
(
build_string
(
"Lisp expression: "
),
Qnil
);
#endif
if
(
STRINGP
(
rea
dcharfun
))
return
Fcar
(
Fread_from_string
(
rea
dcharfun
,
Qnil
,
Qnil
));
if
(
STRINGP
(
st
rea
m
))
return
Fcar
(
Fread_from_string
(
st
rea
m
,
Qnil
,
Qnil
));
return
read0
(
rea
dcharfun
);
return
read0
(
st
rea
m
);
}
DEFUN
(
"read-from-string"
,
Fread_from_string
,
Sread_from_string
,
1
,
3
,
0
,
...
...
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