(print): Symbols like e2 and 2e are not confusing.

1 files changed, 11 insertions, 1 deletions

diff --git a/src/print.c b/src/print.c
index 8a218e88105..933544467ca 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1016,7 +1016,15 @@ print (obj, printcharfun, escapeflag)
 	if (p != end && (*p == '-' || *p == '+')) p++;
 	if (p == end)
 	  confusing = 0;
-	else
+	/* If symbol name begins with a digit, and ends with a digit,
+	   and contains nothing but digits and `e', it could be treated
+	   as a number.  So set CONFUSING.
+
+	   Symbols that contain periods could also be taken as numbers,
+	   but periods are always escaped, so we don't have to worry
+	   about them here.  */
+	else if (*p >= '0' && *p <= '9'
+		 && end[-1] >= '0' && end[-1] <= '9')
 	  {
 	    while (p != end && ((*p >= '0' && *p <= '9')
 				/* Needed for \2e10.  */
@@ -1024,6 +1032,8 @@ print (obj, printcharfun, escapeflag)
 	      p++;
 	    confusing = (end == p);
 	  }
+	else
+	  confusing = 0;
 
 	/* If we print an uninterned symbol as part of a complex object and
 	   the flag print-gensym is non-nil, prefix it with #n= to read the