diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index 5d9bdb065e8..07cbb58c4ec 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -3635,9 +3635,9 @@ read_bool_vector (Lisp_Object readcharfun) | |||
| 3635 | Lisp_Object str = read_string_literal (readcharfun); | 3635 | Lisp_Object str = read_string_literal (readcharfun); |
| 3636 | if (STRING_MULTIBYTE (str) | 3636 | if (STRING_MULTIBYTE (str) |
| 3637 | || !(size_in_chars == SCHARS (str) | 3637 | || !(size_in_chars == SCHARS (str) |
| 3638 | /* We used to print 1 char too many when the number of bits | 3638 | /* Emacs 19 printed 1 char too many when the number of bits |
| 3639 | was a multiple of 8. Accept such input in case it came | 3639 | was a multiple of 8. Accept such input in case it came |
| 3640 | from an old version. */ | 3640 | from that old version. */ |
| 3641 | || length == (SCHARS (str) - 1) * BOOL_VECTOR_BITS_PER_CHAR)) | 3641 | || length == (SCHARS (str) - 1) * BOOL_VECTOR_BITS_PER_CHAR)) |
| 3642 | invalid_syntax ("#&...", readcharfun); | 3642 | invalid_syntax ("#&...", readcharfun); |
| 3643 | 3643 | ||