Eat trailing spaces in sun modesunmake

1 files changed, 7 insertions, 0 deletions

diff --git a/read.c b/read.c
index 5b9d03a..2556b67 100644
--- a/read.c
+++ b/read.c
@@ -2418,6 +2418,13 @@ readline (struct ebuffer *ebuf)
           p[-1] = '\n';
         }
 #endif
+	  /* In SunOS mode strip trailing spaces: */
+	  if (sun_flag)
+	  {
+	      while ((p - start) > 1 && (p[-2] == ' ' || p[-2] == '\t'))
+	          --p;
+	      p[-1] = '\n';
+	  }
 
       backslash = 0;
       for (p2 = p - 2; p2 >= start; --p2)