aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorZajcev Evgeny2020-12-17 11:27:20 +0300
committerStefan Monnier2020-12-17 10:40:51 -0500
commit02c4f65a1ea5d55a569a559bb181c6df5171319b (patch)
treef9caf7e5eaec35bdabaa4d2c5ad5659176f4719e /src
parent526abadd071e8c2cd67b91c2e282b44e01917fdb (diff)
downloademacs-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.c2
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