From bfbad3fd2a3ba5af46e547c5e1f7cb72b25162a8 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 4 Aug 2015 20:28:51 -0700
Subject: * stream.c (put_string, put_char): Do not put out the indentation
 immediately after outputting a newline. Rather, delay the output of the
 indentation until some output occurs at column zero.

---
 stream.c | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'stream.c')

diff --git a/stream.c b/stream.c
index 7d425d38..19c79619 100644
--- a/stream.c
+++ b/stream.c
@@ -2544,9 +2544,13 @@ val put_string(val string, val stream_in)
       col = 0;
       break;
     case '\t':
+      if (s->indent_mode != indent_off && col == 0)
+        col = s->indent_chars;
       col = (col + 1) | 7;
       break;
     default:
+      if (s->indent_mode != indent_off && col == 0)
+        col = s->indent_chars;
       if (iswprint(*p))
         col++;
       break;
@@ -2568,14 +2572,21 @@ val put_char(val ch, val stream_in)
   switch (cch) {
   case L'\n':
     ops->put_char(stream, ch);
-    put_indent(stream, ops, s->indent_chars);
-    s->column = s->indent_chars;
+    s->column = 0;
     break;
   case L'\t':
+    if (s->column == 0 && s->indent_mode != indent_off) {
+      put_indent(stream, ops, s->indent_chars);
+      s->column = s->indent_chars;
+    }
     ops->put_char(stream, ch);
     s->column = (s->column + 1) | 7;
     break;
   default:
+    if (s->column == 0 && s->indent_mode != indent_off) {
+      put_indent(stream, ops, s->indent_chars);
+      s->column = s->indent_chars;
+    }
     ops->put_char(stream, ch);
     if (iswprint(cch))
       s->column++;
-- 
cgit v1.2.3