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

1 files changed, 8 insertions, 4 deletions

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