diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-01-11 00:28:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-01-11 00:28:16 +0000 |
| commit | 68c578412f81b0aca21aba9c58f3009bd295228f (patch) | |
| tree | 82220cbb5a6ccc2cfffc2a98eacf5be06b33b365 | |
| parent | b0ab7b908860d0207862f95c6cd18b8d0c8aa88a (diff) | |
| download | emacs-68c578412f81b0aca21aba9c58f3009bd295228f.tar.gz | |
(read1): Fix error messages.
| -rw-r--r-- | src/lread.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index 647735c8555..7b73425f568 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1269,14 +1269,15 @@ read1 (readcharfun, pch, first_in_list) tmp = read1 (readcharfun, pch, first_in_list); if (size_in_chars != XSTRING (tmp)->size) Fsignal (Qinvalid_read_syntax, - Fcons (make_string ("#&", 2), Qnil)); + Fcons (make_string ("#&...", 2), Qnil)); val = Fmake_bool_vector (length, Qnil); bcopy (XSTRING (tmp)->data, XBOOL_VECTOR (val)->data, size_in_chars); return val; } - Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&", 2), Qnil)); + Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&...", 2), + Qnil)); } if (c == '[') { |