(print_object): Escape a symbol like "2E10" too.

2 files changed, 5 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 37ce0c98ce4..2c33dc18d69 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2009-10-15  Kenichi Handa  <handa@m17n.org>
+
+        * print.c (print_object): Escape a symbol like "2E10" too.
+
 2009-10-11  Adrian Robert  <Adrian.B.Robert@gmail.com>
         Cleanups and changes for 64-bit compile under Snow Leopard.  Based
         on suggestions by Erik Charlebois.
diff --git a/src/print.c b/src/print.c
index 7f526243346..5eee386cab7 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1753,7 +1753,7 @@ print_object (obj, printcharfun, escapeflag)
           {
             while (p != end && ((*p >= '0' && *p <= '9')
                                 /* Needed for \2e10.  */
-                                || *p == 'e'))
+                                || *p == 'e' || *p == 'E'))
               p++;
             confusing = (end == p);
           }