From 681f70ea04a30bb43bb87448a6d71458d773d247 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 20 Oct 2024 22:39:53 +0300
Subject: [PATCH] * 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						\
-- 
2.30.2