From af7eba0c848d12629d41be991467d35a902a9e66 Mon Sep 17 00:00:00 2001
From: Oliver Kiddle <opk@users.sourceforge.net>
Date: Thu, 13 Nov 2003 16:45:36 +0000
Subject: merge back changes from 4.1

---
 Src/input.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'Src/input.c')

diff --git a/Src/input.c b/Src/input.c
index 525a3202a..bf31c09cf 100644
--- a/Src/input.c
+++ b/Src/input.c
@@ -540,3 +540,17 @@ inpop(void)
 	inpoptop();
     } while (remcont);
 }
+
+/*
+ * Expunge any aliases from the input stack; they shouldn't appear
+ * in the history and need to be flushed explicitly when we encounter
+ * an error.
+ */
+
+/**/
+void
+inpopalias(void)
+{
+    while (inbufflags & INP_ALIAS)
+	inpoptop();
+}
-- 
cgit 1.4.1