changeset 21480:20aab049dc4a

(print) <Lisp_String>: Fix "\ " handling.
author Karl Heuer <kwzh@gnu.org>
date Sun, 12 Apr 1998 06:49:26 +0000
parents 89c1bfb63571
children e53c0d01cf31
files src/print.c
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/print.c	Sun Apr 12 06:46:08 1998 +0000
+++ b/src/print.c	Sun Apr 12 06:49:26 1998 +0000
@@ -1218,11 +1218,14 @@
 		  /* 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 ('\\');