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).
This commit is contained in:
Lars Ingebrigtsen 2019-08-23 02:24:55 +02:00
parent e8f3390dea
commit 4982fd95c7

View file

@ -169,7 +169,8 @@ string_to_object (Lisp_Object val, Lisp_Object defalt)
{
int c = SREF (val, i);
if (c != ' ' && c != '\t' && c != '\n')
error ("Trailing garbage following expression");
xsignal1 (Qinvalid_read_syntax,
build_string ("Trailing garbage following expression"));
}
}