From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 18 Apr 2018 19:38:19 +0000 (-0700)
Subject: Tell user about read-integer-overflow-as-float
X-Git-Tag: emacs-27.0.90~5144
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=403f3d2c85b98a15609b3e52411c175b5294f940;p=emacs.git

Tell user about read-integer-overflow-as-float

* src/lread.c (string_to_number): Suggest
read-integer-overflow-as-float in signal message.
Suggested by Stefan Monnier (Bug#31118#58).
---

diff --git a/src/lread.c b/src/lread.c
index 6eda7405409..9ddd8d5a7f6 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3797,7 +3797,12 @@ string_to_number (char const *string, int base, int flags)
 	value = n;
 
       if (! (state & DOT_CHAR) && ! (flags & S2N_OVERFLOW_TO_FLOAT))
-	xsignal1 (Qoverflow_error, build_string (string));
+	{
+	  AUTO_STRING (fmt, ("%s is out of fixnum range; "
+			     "maybe set `read-integer-overflow-as-float'?"));
+	  AUTO_STRING_WITH_LEN (arg, string, cp - string);
+	  xsignal1 (Qoverflow_error, CALLN (Fformat_message, fmt, arg));
+	}
     }
 
   /* Either the number uses float syntax, or it does not fit into a fixnum.