diff options
| author | Zajcev Evgeny | 2020-12-17 11:27:20 +0300 |
|---|---|---|
| committer | Stefan Monnier | 2020-12-17 10:40:51 -0500 |
| commit | 02c4f65a1ea5d55a569a559bb181c6df5171319b (patch) | |
| tree | f9caf7e5eaec35bdabaa4d2c5ad5659176f4719e /src | |
| parent | 526abadd071e8c2cd67b91c2e282b44e01917fdb (diff) | |
| download | emacs-02c4f65a1ea5d55a569a559bb181c6df5171319b.tar.gz emacs-02c4f65a1ea5d55a569a559bb181c6df5171319b.zip | |
Make "Invalid modifier in string" ordinary invalid-read-syntax error
* src/lread.ec (read1): Raise "Invalid modifier in string" error as
`invalid-read-syntax'. This fixes raise of unhandled error in
`elisp--local-variables'
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index a3d5fd7bb81..3ef874039a6 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -3438,7 +3438,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) | |||
| 3438 | 3438 | ||
| 3439 | /* Any modifiers remaining are invalid. */ | 3439 | /* Any modifiers remaining are invalid. */ |
| 3440 | if (modifiers) | 3440 | if (modifiers) |
| 3441 | error ("Invalid modifier in string"); | 3441 | invalid_syntax ("Invalid modifier in string"); |
| 3442 | p += CHAR_STRING (ch, (unsigned char *) p); | 3442 | p += CHAR_STRING (ch, (unsigned char *) p); |
| 3443 | } | 3443 | } |
| 3444 | else | 3444 | else |