From 03e88613889a536f59f74e22a41e585212d4f185 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 9 Aug 1997 03:44:54 +0000 Subject: [PATCH] (read1): Handle read_escape making a multibyte character. --- src/lread.c | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) diff --git a/src/lread.c b/src/lread.c index e6cc2b7b074..8718a05c9d4 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1620,7 +1620,29 @@ read1 (readcharfun, pch, first_in_list) end = read_buffer + read_buffer_size; } if (c == '\\') - c = read_escape (readcharfun); + { + c = read_escape (readcharfun); + if (! SINGLE_BYTE_CHAR_P ((c & ~CHAR_META))) + { + char workbuf[4]; + char *str = workbuf; + int length; + + length = non_ascii_char_to_string (c, workbuf, &str); + + if (p + length > end) + { + char *new = (char *) xrealloc (read_buffer, read_buffer_size *= 2); + p += new - read_buffer; + read_buffer += new - read_buffer; + end = read_buffer + read_buffer_size; + } + + bcopy (str, p, length); + p += length; + continue; + } + } /* c is -1 if \ newline has just been seen */ if (c == -1) { -- 2.39.2