emacs-30 681f70ea04a: * src/lread.c (READ_AND_BUFFER): Reject negative chars (bug#73914).

[Eli Zaretskii]

branch: emacs-30
commit 681f70ea04a30bb43bb87448a6d71458d773d247
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    * src/lread.c (READ_AND_BUFFER): Reject negative chars (bug#73914).
---
 src/lread.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/lread.c b/src/lread.c
index c336c6db6e1..854aaa784ad 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3913,6 +3913,8 @@ read_stack_reset (intmax_t sp)
 
 #define READ_AND_BUFFER(c)                     \
   c = READCHAR;                                        \
+  if (c < 0)                                   \
+    INVALID_SYNTAX_WITH_BUFFER ();             \
   if (multibyte)                               \
     p += CHAR_STRING (c, (unsigned char *) p); \
   else                                         \