Mercurial > emacs
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 ('\\');