(read1): Call multibyte_chars_in_text

instead of chars_in_text because we must ignore
enable-multibyte-characters here.

diff --git a/src/lread.c b/src/lread.c
index ee1f6be..0d04bc0 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1795,7 +1795,7 @@ read1 (readcharfun, pch, first_in_list)
          nchars = p - read_buffer;
        else if (! NILP (buffer_defaults.enable_multibyte_characters)
                 || force_multibyte)
-         nchars = chars_in_text (read_buffer, p - read_buffer);
+         nchars = multibyte_chars_in_text (read_buffer, p - read_buffer);
        else
          nchars = p - read_buffer;