From 37d2cf03f1f15f57432d3d4fb0c3c451438afdb0 Mon Sep 17 00:00:00 2001
From: tgoodwin <tgoodwin>
Date: Wed, 11 Feb 1998 14:04:49 +0000
Subject: fix prompting for readline

---
 input.c | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

(limited to 'input.c')

diff --git a/input.c b/input.c
index 4524638..d8f19c1 100644
--- a/input.c
+++ b/input.c
@@ -280,10 +280,11 @@ extern Node *doit(bool execit) {
 			}
 			if ((s = varlookup("prompt")) != NULL) {
 #if READLINE
-				prompt = s->w;
-#else
-				fprint(2, "%s", s->w);
+				if (istack->fd == 0)
+					prompt = s->w;
+				else
 #endif
+					fprint(2, "%s", s->w);
 				prompt2 = (s->n == NULL ? "" : s->n->w);
 			}
 		}
@@ -361,3 +362,16 @@ extern void closefds() {
 			i->fd = -1;
 		}
 }
+
+extern void print_prompt2() {
+	lineno++;
+	if (interactive) {
+#if READLINE
+		if (istack->fd == 0)
+			prompt = prompt2;
+		else
+#endif
+			fprint(2, "%s", prompt2);
+	}
+}
+
-- 
cgit v1.2.3