diff options
| author | Richard M. Stallman | 1997-01-11 00:28:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-01-11 00:28:16 +0000 |
| commit | 039dc30b045dc0ba0633aee0d71020daf8c50f48 (patch) | |
| tree | 2960dc8ecd3994ce7fab026d508d8a7dbf802fe5 /src | |
| parent | 988dff5e886ad9d68214a257e456d271a98f814f (diff) | |
| download | emacs-039dc30b045dc0ba0633aee0d71020daf8c50f48.tar.gz emacs-039dc30b045dc0ba0633aee0d71020daf8c50f48.zip | |
(read1): Fix error messages.
Diffstat (limited to 'src')
| -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) | |||
| 1269 | tmp = read1 (readcharfun, pch, first_in_list); | 1269 | tmp = read1 (readcharfun, pch, first_in_list); |
| 1270 | if (size_in_chars != XSTRING (tmp)->size) | 1270 | if (size_in_chars != XSTRING (tmp)->size) |
| 1271 | Fsignal (Qinvalid_read_syntax, | 1271 | Fsignal (Qinvalid_read_syntax, |
| 1272 | Fcons (make_string ("#&", 2), Qnil)); | 1272 | Fcons (make_string ("#&...", 2), Qnil)); |
| 1273 | 1273 | ||
| 1274 | val = Fmake_bool_vector (length, Qnil); | 1274 | val = Fmake_bool_vector (length, Qnil); |
| 1275 | bcopy (XSTRING (tmp)->data, XBOOL_VECTOR (val)->data, | 1275 | bcopy (XSTRING (tmp)->data, XBOOL_VECTOR (val)->data, |
| 1276 | size_in_chars); | 1276 | size_in_chars); |
| 1277 | return val; | 1277 | return val; |
| 1278 | } | 1278 | } |
| 1279 | Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&", 2), Qnil)); | 1279 | Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&...", 2), |
| 1280 | Qnil)); | ||
| 1280 | } | 1281 | } |
| 1281 | if (c == '[') | 1282 | if (c == '[') |
| 1282 | { | 1283 | { |