# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 891803912 0
# Node ID e53943cd93b2dbc0d1cde97ed5b770cb3e337f63
# Parent  fbb2f87ce945a6c3394300805ca40e584cdaac55
(print) <Lisp_String>: Follow a hex escape with `\ ' if nec.

diff -r fbb2f87ce945 -r e53943cd93b2 src/print.c
--- a/src/print.c	Sun Apr 05 19:13:50 1998 +0000
+++ b/src/print.c	Sun Apr 05 19:18:32 1998 +0000
@@ -1151,6 +1151,9 @@
 	  register unsigned char c;
 	  struct gcpro gcpro1;
 	  int size_byte;
+	  /* 1 means we must ensure that the next character we output
+	     cannot be taken as part of a hex character escape.  */
+	  int need_nonhex = 0;
 
 	  GCPRO1 (obj);
 
@@ -1197,6 +1200,7 @@
 		  unsigned char outbuf[50];
 		  sprintf (outbuf, "\\x%x", c);
 		  strout (outbuf, -1, -1, printcharfun, 0);
+		  need_nonhex = 1;
 		}
 	      else if (SINGLE_BYTE_CHAR_P (c)
 		       && ! ASCII_BYTE_P (c)
@@ -1211,6 +1215,15 @@
 		}
 	      else
 		{
+		  /* 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')
+			  || (c >= 'A' && c <= 'F')
+			  || (c >= '0' && c <= '9')))
+		    strout ("\\ ", -1, -1, printcharfun, 0);
+
 		  if (c == '\"' || c == '\\')
 		    PRINTCHAR ('\\');
 		  PRINTCHAR (c);