aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/lread.c4
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