From f98176d2142e77ffd8c3564a074b1c0384ae55d1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 26 Oct 2002 22:52:36 +0000 Subject: [PATCH] (Fformat): Detect invalid format letters for floats. --- src/editfns.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/editfns.c b/src/editfns.c index 3b71d592bd1..51cf0c0b789 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -3259,7 +3259,12 @@ usage: (format STRING &rest OBJECTS) */) else if (FLOATP (args[n]) && *format != 's') { if (! (*format == 'e' || *format == 'f' || *format == 'g')) - args[n] = Ftruncate (args[n], Qnil); + { + if (*format != 'd' && *format != 'o' && *format != 'x' + && *format != 'i' && *format != 'X' && *format != 'c') + error ("Invalid format operation %%%c", *format); + args[n] = Ftruncate (args[n], Qnil); + } /* Note that we're using sprintf to print floats, so we have to take into account what that function -- 2.39.2