comparison src/print.c @ 21480:20aab049dc4a

(print) <Lisp_String>: Fix "\ " handling.
author Karl Heuer <kwzh@gnu.org>
date Sun, 12 Apr 1998 06:49:26 +0000
parents 4a457fda49b5
children e4f63bf20c03
comparison
equal deleted inserted replaced
21479:89c1bfb63571 21480:20aab049dc4a
1216 else 1216 else
1217 { 1217 {
1218 /* If we just had a hex escape, and this character 1218 /* If we just had a hex escape, and this character
1219 could be taken as part of it, 1219 could be taken as part of it,
1220 output `\ ' to prevent that. */ 1220 output `\ ' to prevent that. */
1221 if (need_nonhex 1221 if (need_nonhex)
1222 && ((c >= 'a' && c <= 'f') 1222 {
1223 need_nonhex = 0;
1224 if ((c >= 'a' && c <= 'f')
1223 || (c >= 'A' && c <= 'F') 1225 || (c >= 'A' && c <= 'F')
1224 || (c >= '0' && c <= '9'))) 1226 || (c >= '0' && c <= '9'))
1225 strout ("\\ ", -1, -1, printcharfun, 0); 1227 strout ("\\ ", -1, -1, printcharfun, 0);
1228 }
1226 1229
1227 if (c == '\"' || c == '\\') 1230 if (c == '\"' || c == '\\')
1228 PRINTCHAR ('\\'); 1231 PRINTCHAR ('\\');
1229 PRINTCHAR (c); 1232 PRINTCHAR (c);
1230 } 1233 }