(print) <Lisp_String>: Fix "\ " handling.

diff --git a/src/print.c b/src/print.c
index 443b2f03a303454f89901f03b9272b8fb4638f42..30e9ff74af144f525e914ea42e8dc14669ff0807 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1218,11 +1218,14 @@ print (obj, printcharfun, escapeflag)
                  /* If we just had a hex escape, and this character
                     could be taken as part of it,
                     output `\ ' to prevent that.  */
-                 if (need_nonhex
-                     && ((c >= 'a' && c <= 'f')
+                 if (need_nonhex)
+                   {
+                     need_nonhex = 0;
+                     if ((c >= 'a' && c <= 'f')
                          || (c >= 'A' && c <= 'F')
-                         || (c >= '0' && c <= '9')))
-                   strout ("\\ ", -1, -1, printcharfun, 0);
+                         || (c >= '0' && c <= '9'))
+                       strout ("\\ ", -1, -1, printcharfun, 0);
+                   }
 
                  if (c == '\"' || c == '\\')
                    PRINTCHAR ('\\');