mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

(end_of_file_error): New function.

Browse source 
(read1): Call it instead of signaling `end-of-file' directly.
This commit is contained in:
Gerd Moellmann 2000-04-27 10:48:11 +00:00
parent c02279de38
commit 9c97398c32
1 changed files with 21 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/lread.c
View file

@ -1111,6 +1111,22 @@ readevalloop_1 (old)
return Qnil;
}
/* Signal an `end-of-file' error, if possible with file name
information. */
static void
end_of_file_error ()
{
Lisp_Object data;
if (STRINGP (Vload_file_name))
data = Fcons (Vload_file_name, Qnil);
else
data = Qnil;
Fsignal (Qend_of_file, data);
}
/* UNIBYTE specifies how to set load_convert_to_unibyte
for this invocation.
READFUN, if non-nil, is used instead of `read'. */
@ -1691,7 +1707,8 @@ read1 (readcharfun, pch, first_in_list)
retry:
c = READCHAR;
if (c < 0) return Fsignal (Qend_of_file, Qnil);
if (c < 0)
end_of_file_error ();
switch (c)
{
@ -2009,7 +2026,8 @@ read1 (readcharfun, pch, first_in_list)
case '?':
{
c = READCHAR;
if (c < 0) return Fsignal (Qend_of_file, Qnil);
if (c < 0)
end_of_file_error ();
if (c == '\\')
c = read_escape (readcharfun, 0);
@ -2097,7 +2115,7 @@ read1 (readcharfun, pch, first_in_list)
}
}
if (c < 0)
return Fsignal (Qend_of_file, Qnil);
end_of_file_error ();
/* If purifying, and string starts with \ newline,
return zero instead. This is for doc strings