diff options
| author | Joe Mistachkin <joe@mistachkin.com> | 2008-10-06 18:38:39 (GMT) |
|---|---|---|
| committer | Joe Mistachkin <joe@mistachkin.com> | 2008-10-06 18:38:39 (GMT) |
| commit | 3053a0d10fc3b38c99ce4641bf28a9a9185b481c (patch) | |
| tree | 168e4ab4d53aeb7f0c3c8ffdd962a3d6e41a8f23 /tools/man2tcl.c | |
| parent | 1a00d8582f1c15d195130ae24310aea2acf2aedd (diff) | |
| download | tcl-3053a0d10fc3b38c99ce4641bf28a9a9185b481c.zip tcl-3053a0d10fc3b38c99ce4641bf28a9a9185b481c.tar.gz tcl-3053a0d10fc3b38c99ce4641bf28a9a9185b481c.tar.bz2 | |
Fix for [Bug 1934200]
Diffstat (limited to 'tools/man2tcl.c')
| -rw-r--r-- | tools/man2tcl.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tools/man2tcl.c b/tools/man2tcl.c index 7940325..a840f57 100644 --- a/tools/man2tcl.c +++ b/tools/man2tcl.c @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: man2tcl.c,v 1.15 2008/10/02 19:01:30 mistachkin Exp $ + * RCS: @(#) $Id: man2tcl.c,v 1.16 2008/10/06 18:38:39 mistachkin Exp $ */ static char sccsid[] = "@(#) man2tcl.c 1.3 95/08/12 17:34:08"; @@ -352,6 +352,7 @@ DoText( sscanf(p,"%d",&ch); PRINT(("text \\u%04x\n", ch)); while(*p&&*p!='\'') p++; + p++;
} else if (*p != 0) { PRINT(("char {\\%c}\n", *p)); p++; |