Mercurial > emacs
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 } |