From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 23 Aug 2019 00:24:55 +0000 (+0200)
Subject: Signal `invalid-read-syntax' for "trailing garbage"
X-Git-Tag: emacs-27.0.90~1328^2~128
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4982fd95c7d1e099f50d875ca58e92d0c24bb0df;p=emacs.git

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).
---

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)
 	{
 	  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"));
 	}
     }