From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 11 Jan 1997 00:28:16 +0000 (+0000)
Subject: (read1): Fix error messages.
X-Git-Tag: emacs-20.1~3089
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=039dc30b045dc0ba0633aee0d71020daf8c50f48;p=emacs.git

(read1): Fix error messages.
---

diff --git a/src/lread.c b/src/lread.c
index 647735c8555..7b73425f568 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1269,14 +1269,15 @@ read1 (readcharfun, pch, first_in_list)
 	      tmp = read1 (readcharfun, pch, first_in_list);
 	      if (size_in_chars != XSTRING (tmp)->size)
 		Fsignal (Qinvalid_read_syntax,
-			 Fcons (make_string ("#&", 2), Qnil));
+			 Fcons (make_string ("#&...", 2), Qnil));
 		
 	      val = Fmake_bool_vector (length, Qnil);
 	      bcopy (XSTRING (tmp)->data, XBOOL_VECTOR (val)->data,
 		     size_in_chars);
 	      return val;
 	    }
-	  Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&", 2), Qnil));
+	  Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&...", 2),
+						Qnil));
 	}
       if (c == '[')
 	{