diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2013-03-12 16:56:06 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2013-03-12 16:56:06 +0200 |
commit | 588bb9898edcc8b531980fcb180e4955d29ed409 (patch) | |
tree | 641a9c7aafc542682f79a7988d022b8f58e4055b /src/format.c | |
parent | 487e2cfa988d6c3a5232011ab83897ef23bdb88a (diff) | |
download | grecs-588bb9898edcc8b531980fcb180e4955d29ed409.tar.gz grecs-588bb9898edcc8b531980fcb180e4955d29ed409.tar.bz2 |
Complement bef65e80 for block statements.
* src/format.c (grecs_print_block_statement): If argument name
begins with \', omit the surrounding angle brackets and \'
itself.
Diffstat (limited to 'src/format.c')
-rw-r--r-- | src/format.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/format.c b/src/format.c index f675917..c554cc9 100644 --- a/src/format.c +++ b/src/format.c @@ -166,8 +166,12 @@ grecs_print_block_statement(struct grecs_keyword *kwp, unsigned level, grecs_print_docstring(kwp->docstring, level, stream); format_level(level, stream); fprintf(stream, "%s", kwp->ident); - if (kwp->argname) - fprintf(stream, " <%s>", gettext(kwp->argname)); + if (kwp->argname) { + if (kwp->argname[0] == '\'') + fprintf(stream, " %s", kwp->argname + 1); + else + fprintf(stream, " <%s>", gettext(kwp->argname)); + } fprintf(stream, " {\n"); grecs_print_statement_array(kwp->kwd, 0, level + 1, stream); format_level(level, stream); |