From 7b0d0759b3fd93e6d420e6387bf2fb89b4d04e9c Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Fri, 14 Jun 2002 17:53:24 +0000 Subject: 17318: ${(z)...} added an extra space when the lexical analyser failed. --- Src/hist.c | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'Src') diff --git a/Src/hist.c b/Src/hist.c index e86252d17..57e429a7d 100644 --- a/Src/hist.c +++ b/Src/hist.c @@ -2266,7 +2266,16 @@ bufferwords(LinkList list, char *buf, int *index) } } while (tok != ENDINPUT && tok != LEXERR); if (buf && tok == LEXERR && tokstr && *tokstr) { + int plen; untokenize((p = dupstring(tokstr))); + plen = strlen(p); + /* + * Strip the space we added for lexing but which won't have + * been swallowed by the lexer because we aborted early. + * The test is paranoia. + */ + if (plen && p[plen-1] == ' ' && (plen == 1 || p[plen-2] != Meta)) + p[plen - 1] = '\0'; addlinknode(list, p); num++; } -- cgit 1.4.1