diff options
| author | Eli Zaretskii | 2024-10-20 22:39:53 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2024-10-20 22:39:53 +0300 |
| commit | 681f70ea04a30bb43bb87448a6d71458d773d247 (patch) | |
| tree | ddad62999cbe37040f3d5acc0fe2c87df71c7756 | |
| parent | ac4151e0023f4bf17eb128036c006618332f1ac0 (diff) | |
| download | emacs-681f70ea04a30bb43bb87448a6d71458d773d247.tar.gz emacs-681f70ea04a30bb43bb87448a6d71458d773d247.zip | |
* src/lread.c (READ_AND_BUFFER): Reject negative chars (bug#73914).
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 2 insertions, 0 deletions
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) | |||
| 3913 | 3913 | ||
| 3914 | #define READ_AND_BUFFER(c) \ | 3914 | #define READ_AND_BUFFER(c) \ |
| 3915 | c = READCHAR; \ | 3915 | c = READCHAR; \ |
| 3916 | if (c < 0) \ | ||
| 3917 | INVALID_SYNTAX_WITH_BUFFER (); \ | ||
| 3916 | if (multibyte) \ | 3918 | if (multibyte) \ |
| 3917 | p += CHAR_STRING (c, (unsigned char *) p); \ | 3919 | p += CHAR_STRING (c, (unsigned char *) p); \ |
| 3918 | else \ | 3920 | else \ |