From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 26 Oct 2002 22:52:36 +0000 (+0000)
Subject: (Fformat): Detect invalid format letters for floats.
X-Git-Tag: ttn-vms-21-2-B4~12707
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f98176d2142e77ffd8c3564a074b1c0384ae55d1;p=emacs.git

(Fformat): Detect invalid format letters for floats.
---

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