From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 22 Mar 1994 21:59:02 +0000 (+0000)
Subject: (read1): Check for invalid modifier bits in a string.
X-Git-Tag: emacs-19.34~9382
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f943104adbd9be9e67f2ae17dcd0c4143f075acd;p=emacs.git

(read1): Check for invalid modifier bits in a string.
---

diff --git a/src/lread.c b/src/lread.c
index ccb2f52d238..af7a0153b02 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1210,11 +1210,15 @@ read1 (readcharfun)
 		if (p == read_buffer)
 		  cancel = 1;
 	      }
-	    else if (c & CHAR_META)
-	      /* Move the meta bit to the right place for a string.  */
-	      *p++ = (c & ~CHAR_META) | 0x80;
 	    else
-	      *p++ = c;
+	      {
+		if (c & CHAR_META)
+		  /* Move the meta bit to the right place for a string.  */
+		  c = (c & ~CHAR_META) | 0x80;
+		if (c & ~0xff)
+		  error ("Invalid modifier in string");
+		*p++ = c;
+	      }
 	  }
 	if (c < 0) return Fsignal (Qend_of_file, Qnil);