From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 9 Aug 1997 03:44:54 +0000 (+0000)
Subject: (read1): Handle read_escape making a multibyte character.
X-Git-Tag: emacs-20.1~707
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03e88613889a536f59f74e22a41e585212d4f185;p=emacs.git

(read1): Handle read_escape making a multibyte character.
---

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)
 	      {