aboutsummaryrefslogtreecommitdiff
path: root/src/format.c
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2013-03-12 16:56:06 +0200
committerSergey Poznyakoff <gray@gnu.org.ua>2013-03-12 16:56:06 +0200
commit588bb9898edcc8b531980fcb180e4955d29ed409 (patch)
tree641a9c7aafc542682f79a7988d022b8f58e4055b /src/format.c
parent487e2cfa988d6c3a5232011ab83897ef23bdb88a (diff)
downloadgrecs-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.c8
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);

Return to:

Send suggestions and report system problems to the System administrator.