diff options
| author | Mattias Engdegård | 2025-07-25 21:53:37 +0200 |
|---|---|---|
| committer | Mattias Engdegård | 2025-07-25 21:54:59 +0200 |
| commit | 33161e51e539eadeb11282c06df73a5d76afdff2 (patch) | |
| tree | 8242f0dd59ef06486174d3600417c945062da6a6 /src | |
| parent | 50ffb29d0bbb92a7c6569c83d2e3e4868c4e867b (diff) | |
| download | emacs-33161e51e539eadeb11282c06df73a5d76afdff2.tar.gz emacs-33161e51e539eadeb11282c06df73a5d76afdff2.zip | |
Check for end-of-file when reading character escapes (bug#79097)
* src/lread.c (read_char_escape): Add check.
* test/src/lread-tests.el (lread-char-escape-eof): New test.
Diffstat (limited to 'src')
| -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 287528ab32d..54b74b18782 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -3108,6 +3108,8 @@ read_char_escape (source_t *source, int next_char) | |||
| 3108 | chr = c; | 3108 | chr = c; |
| 3109 | break; | 3109 | break; |
| 3110 | } | 3110 | } |
| 3111 | if (chr < 0) | ||
| 3112 | end_of_file_error (); | ||
| 3111 | eassert (chr >= 0 && chr < (1 << CHARACTERBITS)); | 3113 | eassert (chr >= 0 && chr < (1 << CHARACTERBITS)); |
| 3112 | 3114 | ||
| 3113 | /* Apply Control modifiers, using the rules: | 3115 | /* Apply Control modifiers, using the rules: |