diff options
| author | Lars Ingebrigtsen | 2019-08-23 02:24:55 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-08-23 02:24:55 +0200 |
| commit | 4982fd95c7d1e099f50d875ca58e92d0c24bb0df (patch) | |
| tree | da6cfd7415fa1b77ff44724cfca60c1fb91d7bcd /src | |
| parent | e8f3390dea43d55c49919a9d8595d4ea7461d877 (diff) | |
| download | emacs-4982fd95c7d1e099f50d875ca58e92d0c24bb0df.tar.gz emacs-4982fd95c7d1e099f50d875ca58e92d0c24bb0df.zip | |
Signal `invalid-read-syntax' for "trailing garbage"
* src/minibuf.c (string_to_object): Signal `invalid-read-syntax'
instead of the generic `error' for "trailing garbage following
expression" (bug#24649).
Diffstat (limited to 'src')
| -rw-r--r-- | src/minibuf.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/minibuf.c b/src/minibuf.c index 14a0dbe762c..f6cf47f1f28 100644 --- a/src/minibuf.c +++ b/src/minibuf.c | |||
| @@ -169,7 +169,8 @@ string_to_object (Lisp_Object val, Lisp_Object defalt) | |||
| 169 | { | 169 | { |
| 170 | int c = SREF (val, i); | 170 | int c = SREF (val, i); |
| 171 | if (c != ' ' && c != '\t' && c != '\n') | 171 | if (c != ' ' && c != '\t' && c != '\n') |
| 172 | error ("Trailing garbage following expression"); | 172 | xsignal1 (Qinvalid_read_syntax, |
| 173 | build_string ("Trailing garbage following expression")); | ||
| 173 | } | 174 | } |
| 174 | } | 175 | } |
| 175 | 176 | ||