(read1): While reading a string, set force_singlebyte

and force_multibyte correctly.

diff --git a/src/lread.c b/src/lread.c
index 7e4ed5272e8813d1ff281f5d4f9f64c81dca6811..8f990aaeb117017171169766b8d10e6f87384422 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2369,6 +2369,10 @@ read1 (readcharfun, pch, first_in_list)
            else
              {
                p += CHAR_STRING (c, (unsigned char *) p);
+               if (CHAR_BYTE8_P (c))
+                 force_singlebyte = 1;
+               else if (! ASCII_CHAR_P (c))
+                 force_multibyte = 1;
              }
            nchars++;
          }