From 1cd8bbf74429dd7fbfdd61ea1ea87bc4cfa8a8f3 Mon Sep 17 00:00:00 2001
From: h_vogt <h_vogt>
Date: Sun, 13 Dec 2015 10:34:27 +0100
Subject: [PATCH] frontend/postcoms.c, add variable `width' to command "print
 line ..."

---
 src/frontend/postcoms.c | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/src/frontend/postcoms.c b/src/frontend/postcoms.c
index 1481e3621..c04333d10 100644
--- a/src/frontend/postcoms.c
+++ b/src/frontend/postcoms.c
@@ -143,6 +143,12 @@ com_print(wordlist *wl)
 
     out_init();
     if (!col) {
+        if (cp_getvar("width", CP_NUM, &i))
+            width = i;
+        if (width < 60)
+            width = 60;
+        if (width > BSIZE_SP - 2)
+            buf = TREALLOC(char, buf, width + 1);
         for (v = vecs; v; v = v->v_link2) {
             char *basename = vec_basename(v);
             if (plotnames)
@@ -186,7 +192,7 @@ com_print(wordlist *wl)
                             ll += (int) strlen(buf);
                             ll = (ll + 7) / 8;
                             ll = ll * 8 + 1;
-                            if (ll > 60) {
+                            if (ll > width) {
                                 out_send("\n\t");
                                 ll = 9;
                             } else {
@@ -201,7 +207,7 @@ com_print(wordlist *wl)
                             ll += (int) strlen(buf);
                             ll = (ll + 7) / 8;
                             ll = ll * 8 + 1;
-                            if (ll > 60) {
+                            if (ll > width) {
                                 out_send("\n\t");
                                 ll = 9;
                             } else {
@@ -211,7 +217,7 @@ com_print(wordlist *wl)
                     out_send(")\n");
                 } //end if (v->v_length == 1)
             }  //end  if (v->v_rlength == 1)
-        }
+        }  // end for loop
     } else {    /* Print in columns. */
         if (cp_getvar("width", CP_NUM, &i))
             width = i;