[Emacs-diffs] master 403f3d2: Tell user about read-integer-overflow-as-float

[Paul Eggert]

branch: master
commit 403f3d2c85b98a15609b3e52411c175b5294f940
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    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).
---
 src/lread.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/lread.c b/src/lread.c
index 6eda740..9ddd8d5 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.