From: Kenichi Handa <handa@m17n.org>
Date: Thu, 19 Mar 1998 07:34:29 +0000 (+0000)
Subject: (read1): Call multibyte_chars_in_text
X-Git-Tag: emacs-20.3~1854
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d10ac5b4bb55a3edcaa8bc66883f8c340a701e5;p=emacs.git

(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 ee1f6be9b99..0d04bc0c814 100644
--- 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;