From e580d5d76782baa6862eb484e3e85bc5658e216f Mon Sep 17 00:00:00 2001 From: Clint Adams Date: Wed, 13 Nov 2002 21:09:01 +0000 Subject: 17935: beautify bin_whence indentation of () and {} contents. --- ChangeLog | 5 +++++ Src/text.c | 12 ++++++++---- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 00c57291f..d232a669a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-11-13 Clint Adams + + * 17935: Src/text.c: beautify bin_whence indentation of () + and {} contents. + 2002-11-13 Peter Stephenson * 17931: Philippe Troin : Src/init.c: restore diff --git a/Src/text.c b/Src/text.c index 6cb734af2..7405eaec0 100644 --- a/Src/text.c +++ b/Src/text.c @@ -345,27 +345,31 @@ gettext2(Estate state) break; case WC_SUBSH: if (!s) { - taddstr("( "); + taddstr("("); tindent++; + taddnl(); n = tpush(code, 1); n->u._subsh.end = state->pc + WC_SUBSH_SKIP(code); } else { state->pc = s->u._subsh.end; tindent--; - taddstr(" )"); + taddnl(); + taddstr(")"); stack = 1; } break; case WC_CURSH: if (!s) { - taddstr("{ "); + taddstr("{"); tindent++; + taddnl(); n = tpush(code, 1); n->u._subsh.end = state->pc + WC_CURSH_SKIP(code); } else { state->pc = s->u._subsh.end; tindent--; - taddstr(" }"); + taddnl(); + taddstr("}"); stack = 1; } break; -- cgit 1.4.1